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IDENTIFICATION 


PRODUCT CODE: AC-F602A-MC 

PRODUCT NAME: CJKDFAO 11/24 OPTIONS DIAGNOSTIC 
PRODUCT DATE: APR-81 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED. BY DIGITAL OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C): 1981 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE DEC/X11 
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HISTORY 


REVISION A FIRST RELEASE OF DIAGNOSTIC 
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* 1.0 GENERAL PROGRAM INFORMATION 


5 1.1 ABSTRACT 

a? THIS PROGRAM TESTS BOTH SERIAL LINE UNITS (SLU°S) AND THE LINE T 

9e CLOCK (LTC) ON THE M7133 MODULE. ITS MAIN PURPOSE IS TO PROVIDE SCOPE 
ae LOOPING FOR REPAIR PERSONNEL. THE PROGRAM DETECTS FROM 85-95% OF ALL 


THE BOARD IT FAILED ON (1.£., TRIED TO SET BIT 6 ON CSR OF SLU1). 
THIS PROGRAM IS BASICALLY A REWRITE OF THE DL11-W DIAGNOSTIC AND 
THEREFORE IS WRITTEN IN MACRO=11 USING THE SYSMAC MACRO PACKAGE. IT 
1S COMPATIBLE WITH ALL EXISTING MANUFACTURING AND FIELD SERVICE AUTO~ 
MATED TEST SYSTEMS. 


2a VF mn Bw oe 


1.2 SYSTEM REQUIREMENTS 
A. HARDWARE REQUIREMENTS 
- 11/24 CPU MODULE 
- MINIMUM 8K OF MEMORY 
- TURN AROUND JUMPER INSTALLED ON SLU2 
B. SOFTWARE ENVIRONMENTS 
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1.3 RELATED DOCUMENTS AND STANDARDS 


- DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION FOR 11/24 ON 
BOARD OPTIONS TEST 
BGI-79-004-00-U 


KDF11-UA (M7133) MODULE SPECIFICATION REV. 0. 
13% 25-AUGUST-78 BILL BERNSTEIN 


187 - STANDARD APT SYSTEM TO PDP-11 DIAGNOSTIC INTERFACE REV. 15 
138 16-FEBRUARY-76 APT SYSTEM GROUP 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 
175-003-009-02 
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1.4 PREREQUISITE DIAGNOSTICS 


THIS PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU INSTRUCTION SET. 
THIS IS TO BE VERIFIED BY EITHER: 


CJKDBXX DCF11=AA CPU DIAGNOSTIC 
CUKDEXX F171 QUICK TEST 


IF AN END PASS MESSAGE IS RECEIVED FROM CJKDEXX THERE IS_ NO NEED 10 
RUN THIS DIAGNOSTIC BECAUSE ALL DEVICES HAVE BEEN FULLY TESTED. 


1.5 ASSUMPTIONS 
IT 1S ASSUMED THAT THE CONSOLE DEVICE THAT IS CONNECTED TO SLU? IS OP- 


ERATING CORRECTLY. IF THE TERMINAL IS NOT OPERATING CORRECTLY FALSE 
INDICATIONS CAN BE EXPECTED. 


2.0 OPERATING INSTRUCTIONS 


2.1 LOADING AND STARTING PROCEDURES 
USE STANDARD PF *CEDURE FOR PDP=11 ABSOLUTE BINARY FORMATTED TAPES. 


2.1.1 STARTING PROCEDURE ° 


~~ ig Fe dete REGISTER WITH SETTING (SOFTWARE SWITCH REGISTER LOCA~ 


A. START AT 200. 
AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS 
IDENTIFICATION AND REPORT THE NUMBER OF DEVICES UNDER TEST 
(NUMBER IS OCTAL). ‘‘END PASS'' IS PRINTED AFTER A FULL PASS 
HAS BEEN MADE ON ALL DEVICES UNDER TEST. 


B. START AT 204. xe eeNOTE eee 


THE ‘‘ECHO’’ TEST WILL BE EXECUTED. AN ‘‘*'' JS PRINTED AT THE 
BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 


C. START AT 210. ae eeNOTE ses 





SEQ 0005 
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CHARACTER AT THE TERMINAL HALTS THE TEST. CONTINUING RES~ 
TARTS THE TEST. THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND 
REPEATS THE PATTERN EVERY__THREE LINES. THE PATTERN IS AS 
FOLLOWS (OCTAL CODE 040 ==> 377): 


(OCTAL CODE) 
1" $%°()#+,=./0123456789:;<=>? (040 ==> 077 
BABCDER GHIIKLMNOPORS TUVUXY2 (100 ==> 137) 

Seg Mo | pwr aste seg gear (140 ==> 177) CLOWER CASE 


THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL DOES 
NOT HAVE LOWER CASE: 


@ABCDEF GH] JKLMNOPORSTUVWXYZC CUPPER CASE ALPHA] 


2.2 PROGRAM OPTIONS 


BIT15 - HALT ON ERROR 

BIT14 - SCOPE LOOP 

BIT13 - INHIBIT ERROR TYPEOUT 
BIT12 - UNUSED 

BIT11 - UNUSED 

BIT10 - INHIBIT ERROR FLAGS TEST 
BITO9 - LOOP ON ERROR 

B1T08 - UNUSED 

B1T07 ~- DISABLE SLU2 DATA TEST 
BIT06 - INHIBIT LTC TESTS 

BIT05 - INHIBIT ALL SLU TESTS (BOTH SLUS) 
BIT04 - INHIBIT SLU1 TESTING 
B1T03 - INHIBIT SLU2 TESTING 
BITO2 ~ UNUSED 

B1T01 - UNUSED 

B1ITOO ~ UNUSED 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE CON- 
TENTS OF THE SOFTWARE SWITCH REGISTER DURING oy ad Sm TO DO THIS 
THE OPERATOR MUST TYPE A ‘'CNTL G'' (TYPING A ‘'G'' WITH THE ‘“‘CTRL'* KEY 
HELD DOWN AT THE SAME TIME). THIS IS PROCESSED AT KEY ant DURING 
THE PROGRAM (I.E. ON ERRORS, IN BETWEEN EACH TEST). A PROBLEM CAN 
OCCUR SINCE THE PROGRAM MAY BE TESTING THE SLU CONNECTED TO THE CON- 
SOLE DEVICE AND HAVE THE SLU IN MAINTENANCE MODE. IF THIS HAPPENS IT 
SHOULD NOT CAUSE AN ERROR BUT THE ‘‘CNTL G’' MAY BE AM SO IF THE PRO- 
GRAM DOES NOT RESPOND TO THE FIRST ‘‘CNTL G’' TYPE A FEW MORE UNTIL THE 
ee alte RECEIVED. WHEN THE ‘‘CNTL G'' IS RECEIVED THE PROGRAM WILL 


SWR = XXXXXX NEW = 
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WHERE XXXXXX IS EQUAL TO THE PRESENT SWITCH REGISTER CONTENTS IN 
OCTAL. THE OPERATOR CAN THEN TYPE; 


1. <CR> IF NO CHANGES ARE TO BE MADE. 
2. SFT ine. <CR> TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 


3. CONTROL-U IF THE OPERATOR MAKES AN ERROR WHILE INPUTTING THE 
NEW SWITCH REGISTER SETTING. 


2.3 EXECUTION TIMES 


1ST PASS RUNTIME(WORST CASE).....eeeeeeceees 15 SECONDS 
LONGEST TEST TIME... .ceecccecsccccccsevecees 12.5 SECONDS 
ADDITIONAL RUN TIME(EXTRA UNITS)......--000% NONE 

LONGEST PASS TIME.......+-- cecccccccccessces 15 SECONDS 


3.0 ERROR INFORMATION 


3.1 ERROR REPORTING PROCEDURES 
IF A ROUTINE FAILS AND THE INHIBIT we TYPEOUT (BIT13) OF THE SWR IS 


- NOT SET, A PRINTOUT RESULTS IN THE FORM 


“(SOME ASCII ~ fgg +8 
TEST ERR P RCSR CANY APPLICABLE DATA_HEADINGS]J 
XXXXXX SHOX XXXXXX  CANY APPLICABLE DATAJ 


NOTE: ‘RCSR'’ IS DEPENDENT ON THE FAILURE THEREFORE 
COULD BE TCSR, RBUF, TBUR, OR LKS 


WHERE ‘"XXXXXX"" IS AN OCTAL NUMBER. 
THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS WOULD NOT 
HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE TO PRINT AN 


ERROR MESSAGE (I.E. _FATAL CONSOLE TRANSMITTER FAILURES), A HALT 
CCURS. (SEE SECTION 3.2 FOR ERROR HALT INFORMATION.) 
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NOTE 


0 
PRITNOUTS. | AFTER CONTINUING FROM THE 
ERROR HALT THE OLD SWR CONTENTS IS_DIS- 
PLAYED AND THE NEW CONTENTS CAN BE EN- 
TERED. IF ERROR HALTS ARE DISABLED, THE 
CONTROL-G RESPONSE OCCURS IMMEDIATELY 
FOLLOWING THE TYPEOUT. 


3.2 ERROR HALTS 


THERE ARE 5 ERRORS IN THIS PROGRAM THAT CAUSE A HALT. THESE ERRORS 
ARE IN TESTS 1, 2, 3, AND 7. 


TEST 1 ERROR - oe TO SLU1 TRANSMITTER CSR CAUSE TIME-OUT TRAP. 
THIS PROBLEM WILL PROBABLY CAUSE AN AN INABILITY OF THE 
MICRO-ODT TO RUN. 


TEST 2 ERROR - ACCESS TO SLU1 TRANSMITTER DATA BUFFER CAUSED TIME-OUT 
TRAP. THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF 
THE MICRO-ODT TO RUN. 


TEST 3 ERROR - THE FIRST ERROR IS THAT DONE DID NOT CLEAR WHEN THE 
TRANSMITTER BUFFER WAS FILLED AS IT SHOULD. 


THE SECOND ERROR INDICATES THAT DONE DID NOT RESET IN A 
REASONABLE TIME AFTER THE DATA BUFFER WAS FILLED, INDI- 
CATING THAT THE CHARACTER WAS NEVER TRANSMITTED. _ THIS 
COULD CAUSE MICRO-ODT TO NOT RUN OR GARBLED OUTPUT FROM 
THE MICRO-ODT. 


TEST 7 ERROR ee A ERROR INDICATES THAT THE SLU CANNOT BE TAKEN OUT 


INTENANCE MODE. MICRO-ODT SHOULD BE UNEFFECTED BY 
THIS ERROR. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
THE ONLY REPORT FROM THIS PROGRAM OTHER THAN ERROR REPORTS IS THE END 
PASS MESSAGE. IT IS IN THE FORM: 
END PASS #XXXXX 
WHERE XXXXX IS THE DECIMAL NUMBER OF END OF PASSES COMPLETED. 
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5.0 DEVICE INFORMATION TABLES 


SLU1 RCSR 
oe es oe oo oh eee Me ee ee See Pe, 
I 8 Smt I 
ee 
3 
RECEIVER DONE ------------------------ I 
RECEIVER INTERRUPT ENABLE ---------------- 
SLU1 RBUF 


ee oe ee ee ee oe oe A oe Se ee 


FRAME ERROR ~~~ 


SLU1 XCSR 
Me ee A Se 8 SS DSS ee 


TRANSMITTER READY -=--------------- 
TRANSMITTER INTERRUPT ENABLE -~-------- 
MAINTENANCE oowennneneneeanececceccansvecesanensascncen 


SEQ 0009 
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SLU1 XBUF 
| oe ee ee ee ee ee Bee Ge Bo ae ee oe ee ee, 
I ‘ts KB we See ee 
, 
TRANSMITTER DATA BITS (8) --------------------- 
LTC CSR 
; ee Oe ee ee ee De ae Bee ok ee ee en 2 
I Se Be I 
Bact 
ae 
LINE CLOCK MONITOR ---~------------ I 
INTERRUPT ENABLE ---------------------- 
SLU2 RCSR 
a a a ee ee oo ae Soe ee oe 
I ee I 
Re 
Ped 
RECEIVER DONE ~-------------------- I 
INTERRUPT ENABLE ---------------------- 
SLU2 RBUF 


oe fe ee aoe i ee oe oe ae ee Be Sek 


OV 
FRAME ERROR --~- 
RECEIVER PARITY --~ 


ERROR 
RECEIVER DATA BITS (8) ----nnnnnnnnnn nanan nnn 


SEQ 0010 | 
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SEQ 0011 
SLU2 XCSR 
i. we Be See oe ee Ee ee ee Sok See Se See Se 
eT eS 
4 I 
= I 
TRANSMITTER DONE ---~------------------ I I 
INTERRUPT ENABLE -------------------------- I 
BREAK -aa-- nanan nnn n anna nnn nnn nnn nn nnn nnn nnn nn nnn nn nnn nn nnn= 
SLU2 XBUF 
i ee oe i oe ee eo oe ce Oe oe eee 
I ee EA TS ee ee ee 


6.0 PROGRAM DESCRIPTION 


6.1 PROGRAM EXECUTION CHARACTERISTICS 


THIS PROGRAM TESTS ALL THE SELECTED DEVICES AS A SINGLE UNIT. IT 
FIRST VERIFIES THAT ALL REGISTERS CAN BE ACCESSED, THE WRITEABLE BITS 
ARE ABLE TO BE WRITTEN TO AND ARE UNIQUE ON ALL THREE DEVICES. IT 
THEN CHECKS :EACH DEVICE FOR INTERRUPTS AND FOR DATA RELIABILITY. 
FINALLY IT SETS ALL SELECTED DEVICES UP TO GO AT THE SAME TIME ENABLES 
INTERRUPTS AND STARTS THEM OFF. THIS TEST CHECKS SYSTEM INTERACTION. 
WHEN ALL TESTS HAVE BEEN COMPLETED THE END OF PASS MESSAGE IS TYPED. 


6.2 SUBTEST SUMMARIES 


TEST1 TEST ABILITY TO ACCESS SLU1 TRANSMITTER CONTROL AND STATUS 
REGISTER. HALTS IF ACCESS CAUSES TIMEOUT TRAP. 


TEST2 TEST ABILITY TO ACCESS SLU1 TRANSMITTER BUFFER. HALTS IF 
ACCESS CAUSES TIMEOUT TRAP. 


TEST3 TEST SLU1 TRANSMITTER BIT7 (DONE) CLEARS WHEN TRANSMITTER 
BUFFER IS LOADED. THE BUFFER IS LOADED WHICH SHOULD CLEAR 
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TESTS 


TESTS 


TEST6 


TEST7 


TEST10 


TEST11 


TEST12 


TEST13 


TEST14 
TEST15 
TEST16 


THE DONE BIT. AFTER IT IS VERIFIED THAT ‘DONE’’ CLEARS THE 
PROGRAM WAITS TO RECEIVE DONE BACK AFTER THE DATA IS TRANS~ 
FERRED OUT OF THE BUFFER. IF DONE DOES NOT INITIALLY CLEAR 
GR FAILS TO RESET THE PROGRAM HALTS. 


TEST THAT SLU1 TRANSMITTER BIT7 (DONE) SETS WITH RESET. - 
TRANSMITTER BUFFER IS LOADED WITH A CHARACTER, AS SOON A 
"DONE'’ SETS A SECOND CHARACTER IS LOADED INTO THE BUFFER: 


D 
THE TIME IS UP AND IMMEDIATELY CHECKS FOR ° if it JS 
SET THE PROGRAM ASSUMES IT WAS SET BY THE RESET INSTRUCTION. 
THIS ERROR DOES NOT CAUSE A HALT. 


TEST ABILITY TO ACCESS SLU1 RECEIVER CONTROL AND STATUS RE- 
fe AN ERROR IS REPORTED IF ACCESS CAUSES A TIMEOUT 


TEST ABILITY TO ACCESS SLU1 RECEIVER BUFFER. AN ERROR IS 
REPORTED IF ACCESS CAUSES A TIMEOUT TRAP. 


TEST THAT SLU1 BIT2 (MAINTENANCE) CAN BE_ SET AND RESET. 
BECAUSE AN ERROR ON THIS TEST MAY LEAVE i‘ SLU IN AN UNK~ 
NOWN STATE, ERRORS CAUSE THE PROGRAM TO HALT 


TEST THAT SLU1 TRANSMITTER INTERRUPT ENABLE (BIT6) CAN BE 
SET AND RESET. THIS TEST CHECKS THAT THE BIT CAN BE WRITTEN 
yp wort’ CLEARED BY WRITING A ZERO TO IT AND CLEARED 


TEST THAT SLU1 RECEIVER INTERRUPT ENABLE (BIT6) CAN BE _ SET 
AND RESET. SAME TEST AS FOR TRANSMITTER INTERRUPT ENABLE. 


TEST THAT SLU1 RECEIVER TEST 7 (DONE) SETS AND CLEARS PROP- 
ERLY. THIS TEST PUTS THE SLU INTO MAINTENANCE MODE AND 
TRANSMITS A CHARACTER. RECEIVER ‘DONE’* SHOULD SET WHEN 
CHARACTER IS RECEIVED. AFTER ‘DONE’’ SETS THE PROGRAM AT~- 
TEMPTS TO CLEAR IT WITH A *RESET"’. 


TEST aad THAT READING RECEIVER BUFFER CLEAR RECEIVER 
"DONE" CHARACTER IS_ TRANSMITTED IN MAINTENANCE MODE, 
WHEN RECEIVER "DONE’’ SETS THE RECEIVER BUFFER IS READ WHICH 

SHOULD CLEAR DONE. 
SAME AS TEST1 BUT DONE ONSLU2 AND ERROR DOES NOT CAUSE HALT. 
SAME AS TEST2 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 


SAME AS TEST3 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 


TEST17=21 SAME AS TEST4~6 BUT FOR SLU2. 


SEQ 0012 | 
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TEST22 
TEST23-26 
TEST27 


TEST30 


TEST31 


TEST32 


TEST33 


TEST34 


TEST35 


TEST36 


TEST37=42 


TEST43 


TESTGS 


TESTSS 


TEST SLU2 BREAK BIT (BITO) CAN BE SET, CLEARED, AND RESET. 
SAME AS TEST 10-13 BUT FOR SLU2. 


TEST ABILITY TO ACCESS LINE CLOCK STATUS REGISTER. ERROR 
REPORTED IF ACCESS CAUSES TIMEOUT TRAP. 


TEST THAT LINE CLOCK INTERRUPT ENABLE (BIT6) CAN BE SET, 
CLEARED, AND ‘'RESET"’. 


TEST THAT BIT7 (DONE) OF LINE CLOCK STATUS REGISTER SETS AND 
CAN BE CLEARED. 


UNIQUE INTERNAL ADDRESS TEST. THIS TEST WRITES A_ BIT _ INTO 
ONE OF THE DEVICE REGISTERS AND THEN VERIFIES THAT BIT IS 
NOT SET IN ANY OTHER REGISTER. THE TEST IS REPEATED FOR ALL 
THE REGISTERS. 


TEST THAT SLU1 TRANSMITTER INTERRUPTS ONLY WHEN ENABLED. 
THIS TEST CHECKS THAT THE TRANSMITTER ONLY INTERRUPTS WHEN 
ITS INTERRUPT ENABLE BIT IS SET. 


TEST SLU1 TRANSMITTER INTERRUPTS DO NOT OCCUR WHEN DISABLED. 
THIS TEST CHECKS THAT THE TRANSMITTER DOES NOT INTERRUPT 
yg BiB gpcecncnt PRIORITY IS 7 OR THE INTERRUPT ENABLE BIT 


TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS. THIS TEST 
FIRST CHECKS THAT THE TRANSMITTER CAN INTERRUPT THEN MAKES 
gp Be ONLY ONE INTERRUPT IS REQUESTED FOR EACH SETTING 


TEST THAT SLU1 TRANSMITTER INTERRUPT CLEARS WITH LOADING OF 
TRANSMITTER BUFFER. THIS TEST PUTS THE PROCESSOR AT 7, SETS 
TRANSMITTER INTERRUPT ENABLE AND FILLS THE TRANSMITTER 
BUFFER. WHEN ‘‘DONE’' SETS THE SLU SHOULD HAVE AN INTERRUPT 
PENDING. THE PROGRAM THEN FILLS THE BUFFER AGAIN WHICH 
SHOULD CLEAR THE INTERRUPT. 


SAME AS TESTS FOR SLU1 RECEIVER INTERRUPTS AS TRANSMITTER 
INTE.2RUPTS. 


TEST SLU1 THAT RESET CLEARS RECEIVER INTERRUPTS. SET UP FOR 
RECEIVER INTERRUPT PENDING WITH PROCESSOR AT PRIOIRYT 7, 
ISSUE A ‘RESET’ AND DROP PROCESSOR PRIORITY. THE RECEIVER 
SHOULD NOT INTERRUPT. 


TEST SLU1 THAT OVERRUN AND ERROR (BITS 14 AND 15) CAN BE 
SET. THIS TEST PUTS THE SLU? IN MAINTENANCE MODE AND 
TRANSMITS 3 CHARACTERS WITHOUT READING THE RECEIVER BUFFER. 
THIS SHOULD CAUSE BITS 14 AND 15 TO SET. 


TEST SLUT DATA PATH USING MAINTENANCE WRAP AROUND. THIS 


SEQ 0013 | 
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| gi 
| 622 TEST TRANSMITS AN INCREMENTING DATA PATTERN AND VERIFIES THE 
nat CORRECT DATA IS RECEIVED. 
ose TEST46=57 SAME AS TESTS 33-44 EXCEPT FOR SLU2 INSTEAD OF SLU1 
627 — TEST60 TEST THAT BREAK TRANSMITS ALL ZEROES. PUT ALL ONES INTO RE= 
628 CEIVER BUFFER THEN ISSUE A BREAK THE RECEIVER BUFFER SHOULD 
os CONTAIN ZEROES. 
631 TEST61 TEST THAT FRAMING ERROR (BIT13) CAN BE SET DURING BREAK. 
632 TRANSMIT A BREAK AND A CHARACTER JUST TO LET US KNOW WHEN TO 
635 LOOK FOR THE ERROR BIT. WHEN RECEIVER ‘DONE’’ SETS BOTH 
634 BREAK AND CHARACTER SHOULD BE THERE, CHECK FOR BIT 13 IN RE= 
oth CEIVER STATUS REGISTER. 
637 TEST62 TEST SLU2 DATA PATH USING WRAP CABLE CONNECTOR. SAME AS 
° TEST 45 ON SLU1. 
ri TEST63 TEST LINE TIME CLOCK INTERRUPTS PROPERLY. 
oe TEST64 TEST LINE TIME CLOCK FOR DOUBLE INTERRUPTS. 
wae TEST65 TEST THAT LINE TIME CLOCK INTERRUPT CLEARS WITH RESET. 
646 TEST66 TEST THAT LINE TIME CLOCK INTERRUPT CLEARS BY CLEARING BIT7 
84 OF LINE CLOCK STATUS REGISTER. 
649 TEST67 TEST LINE TIME CLOCK REPEATABLILITY THIS TEST VERIFIES THAT 
650 THE PROCESSOR DOES THE SAME AMOUNT OF INSTRUCTIONS FOR TWO 
651 INTERRUPTS OF THE LINE CLOCK, THUS INDICATING EQUAL TIMES 
65 FOR EACH INTERRUPT. BECAUSE OF PROBLEMS OF SYNCHRONIZING 
ee THE PROCESSOR AND CLOCK A SMALL DEVIATION IS ALLOWED. 
655 toe TEST70 BLAST TEST. THIS TEST RUNS ALL SELECTED DEVICES SIMULTANE- 
656 OUSLY IN INTERRUPT MODE. AFTER 60 INTERRUPTS FROM THE LINE 
657 CLOCK OR 256 (10) BYTES HAVE BEEN TRANSFERRED BY THE SLU'S 
658 EVERYTHING IS SHUT DOWN. THE PROGRAM THEN VERIFIES THAT NO 
659 INTERRUPTS WERE LOST ON EITHER SLU AND THAT THE DATA TRANS~ 
rt FERRED WAS CORRECT. 
662 NOTE: IF RUNNING UNDER THE APT ENVIRNOMENT MANY OF THE ABOVE TESTS ARE 
os? ONLY EXECUTED DURING FIRST PASS. 
665 
666 
667 
rr! 6.3 SPECIAL SUBROUTINE DESCRIPTIONS 
670 
or 6.3.1 ECHO TEST = 
673 THIS ROUTINE WILL ECHO ANY CHARACTER TYPED ON EITHER SLU1 OR SLU. 
674 DEFAULT IS TO THE CONSOLE DEVICE SLU1. THE TEST IS HALTED BY TYPING A 


675 CONTROL-C. TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING, 
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6.3.2 TERMINAL OUTPUT TEST = 


THIS ROUTINE WILL OUTPUT ALL WRITEABLE CHARACTERS FOR THE OCTAL CODE 
040 ==> 377. 32 CHARACTERS ARE PRINTED ON EACH LINE. THE PATTERN IS 
REPEATED EVERY THREE LINES. 


7.0 LISTING 


.ENDR 


SEQ 0015 
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000001 
160000 


001100 


000011 


177776 
177774 


177570 


000000 
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TITLE CJKDFAO 11/24 OPTIONS DIAGNOSTIC 
:*COPYRIGHT (C) JAN=81 

>*DIGITAL EQUIPMENT aa 

> *MAYNARD, MASS. 01754 


* 


THIS PROGRAM WAS ASSEMBLED ge -" PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C5), 1981. 


$1N N=1 

$SWR=160000 HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
-SBTTL BASIC DEF INI TIONS 

ca hae OF THE STACK POINTER *** 1100 *** 


STACK= 

-EQUIV EMT,ERROR 3:BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE >:BASIC DEFINITION OF SCOPE CALL 
7 *MISCELLANEOUS DEFINITIONS 

HT= 11 3:CODE FOR HORIZONTAL TAB 


LF= 12 ::CODE FOR LINE FEED 

CR= 15 +s CODE FOR CARRIAGE RETUR 

CRLF= 200 :CODE FOR CARRIAGE RETURN INE FEED 

PS= 177776 : :PROCESSOR STATUS WORD 
-EQUIV PS,PSW 

STKLMT= 177774 +s STACK LIMIT REGISTER 

PIRQ= 177772 sPROGRAM INTERRUPT rite y REGISTER 

DSWR= 177570 + HARDWARE SWITCH REGISTE 

DDISP= 177570 : sHARDWARE DISPLAY APES TER 
; *GENERAL PURPOSE REGISTER oka kee? re, 

R1= %1 : GENERAL REGISTER 

R2= %2 > GENERAL REGISTER 

R3= %3 : GENERAL REGISTER 

R4= %4 GENERAL REGISTER 

R5= %5 GENERAL REGISTER 

R6= %6 7;GENERAL REGISTER 

R7= %7 NERAL REGISTER 

SP= %6 STACK POINTER 

PC= %7 : PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 

PRO= 0 ::PRIORITY LEVEL 0 

PR1= 4 : PRIORITY LEVEL 1 

PR2= 100 ::PRIORITY LEVEL 2 

PR3= 140 ::PRIORITY LEVEL 3 

PR4= 200 ::PRIORITY LEVEL 4 

PR5= 240 : PRIORITY LEVEL 5 

PR6= 300 + :PRIORITY LEVEL 6 


SEQ 0016 


(ee 
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746 000340 
747 
748 
749 100000 
750 040000 
751 020000 
752 010000 
753 004000 
754 002000 
755 001000 
756 000400 
757 000200 
758 000100 
759 000040 
760 000020 
761 000010 
762 000004 
763 000002 
76% 000001 
765 
706 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 100000 
778 040000 
779 020000 
780 010000 
781 004000 
782 002000 
783 001000 
784 000400 
785 000200 
786 000100 
787 000040 
788 000020 
789 000010 
790 000004 
791 000002 
792 000001 
793 
794 
795 
796 
797 
798 
799 
800 
801 
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MACY11 

BASIC DEFINITIONS 
PR7= 340 7zPRIORITY LEVEL 7 
3*""SWITCH REGISTER’’ SWITCH DEFINITIONS 
Sw15= 100000 
Sw14= 40000 
Sw13= 20000 
Swi2= 10000 
Swii= 4000 

Sw10= 2000 

SwOo9= 1000 

SswO8= 400 

sw07= 200 

SwO6= 100 

SswO5= 40 

Sw04= 20 

SwO3= 10 

SwOe= 4 

Swol= 2 

SWwOO= i 

-EQUIV SW09,SW9 
EQUIV SW08,SW8 
EQUIV SwWO7,SW7 
EQUIV SW06,SW6 
«EQUIV SW05,SW 
«EQUIV SW04,SW4 
EQUIV SwW03,SW3 
EQUIV SwW02,SWe 
EQUIV Sw01,SW1 
-EQUIV SWw00,SWO 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 

B1T15= 100000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BITO9= 1000 

BITO8= 400 

BITO7= 200 

BITO6= 100 

BITO5= 40 

BIT04= 20 

BITO3= 10 

BITO2= 4 

BITO1= 2 

BITOO= 1 
EQUIV BITO9,BIT9 
EQUIV BIT08,BIT8 
EQUIV BITO7,BIT7 
EQUIV BIT06,BIT6 
EQUIV BITO5,BITS 
EQUIV BIT04,BIT4 
EQUIV BIT03,B1T3 
EQUIV BITO2,BIT2 
EQUIV BIT01,BIT1 





SEQ 0017 
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802 EQUIV 
803 
804 3 *BASIC 
805 000004 ERRVEC= 4 
806 000010 RESVEC= 
807 000014 TBITVEC= 
808 000014 TRIVEC= 
809 000014 BPTVEC= 
810 000020 IOTVEC= 
811 000024 PWRVEC= 
812 000030 EMTVEC= 
813 000034 TRAPVEC 
B14 000060 TKVEC= 
815 000064 TPVEC= 
816 000240 PIRQVEC 
817 176500 
818 000300 
81 000400 
820 000001 
821 161000 
822 000003 
823 
824 
825 000000 
826 pk kk 
827 
828 
829 
830 
831 
832 000014 
833 000014 015070 
o% 000016 000340 
5) 
836 000042 
837 000042 000000 
838 
839 
840 
841 
842 000174 
843 000174 000000 DISPREG: 
Bre 000176 000000 SWREG: 
846 000200 
847 000200 000137 003036 
848 000204 000137 020106 
849 000210 000137 020364 
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B1T00,BITO 


Paint TRAP VECTOR ADDRESSES 
ME OUT AND OTHER ERRORS 


10 ; :RESERVED AND ILLEGAL INSTRUCTIONS 
14 3 
14 ZI TRACE T 
14 BREAKPOINT TRAP (BPT) 
20 J ae op ae TRAP (IOT) **SCOPE** 
24 POWER FAIL 
30 : EMULATOR TRAP (EMT) **ERROR** 
=34 TRAP 
60 Z:TTY KEYBOARD VECTOR 
64 3: TTY PRINTER VECTOR 
=240 3;PROGRAM INTERRUPT REQUEST VECTOR 
ABASE= 176500 
AVECT1= 300 
AUSWR= 400 
$TN= 1 
$SWR= 161000 
BPT= 000003 zTHIS IS THE COMMAND FOR A TRAP 
: THROUGH 14 (BPT TRAP) 
.=0 


TOBE IEEE IEISSIEISIEISEIIDIOOIUIOIEIOSIUDIEIOTIOIIEIODIO SUITES TI EH 
z*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN _* ‘.+2,BPT"' 
:*SEQUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS 
:*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


.=14 ;THE BPT TRAP VECTOR POINTS TO THE 
«WORD CATCH ; ILLEGAL TRAP HANDLER ‘‘CATCH"* 
-WORD 340 

.= 42 

«WORD 0 

= 174 

«WORD QO 

-WORD 0 

.=200 

JMP START :DO pid ghey’ TEST 

JMP ECHO ;DO ECHO TEST 

JMP OUTTST 3DO OUTPUT TEST TO TERMINAL 


SEQ 0018 


———_——-——- heli 
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850 
851 000500 -= 500 
acs .SBTTL ACT11 HOOKS 
854 PLEA RRR R EERE EEE ERR EERE R EER AREER EER RARER EES 
855 sHOOKS REQUIRED BY ACT11 
856 000500 $SVPC= SAVE PC 
857 000046 -=46 
858 000046 015022 SENDAD 21)SET LOC.46 TO ADDRFSS OF $ENDAD IN .$EOP 
859 000052 -=52 
860 000052 000000 -WORD O :2)SET LOC. a TO ZERO 
861 000500 .=$SVPC 3:3 RESTORE P 
B62 .SBTTL APT PARAMETER BLOCK 
864 8 IIE III IOI IOI IOI I III III IOI IIT IO 
865 SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
866 ‘: "a eat anatase tae eden ecaa aaekigte ss ota 
867 000500 - $X=. ;SAVE CURRENT LOCATION 
868 000024 -=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
869 000024 000200 200 3 FOR APT START UP 
870 000044 =44 :zPOINT TO APT INDIRECT ADDRESS PNTR. 
871 000044 000500 $APTHDR : :POINT TO APT HEADER BLOCK 
872 000500 -=.$X SCRESET LOCATION COUNTER 
873 DRI IIIOISIIISIIIIIIIIIOIIIOIIIOIIIOIIIOISITITITIOICICIIT TTT TTA TTT TSI SIN RRR KKK 
874 *SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
ie y INTERFACE SPEC. 
877 000500 $APTHD: 
878 000500 000000 $HIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
879 000502 001100 $MBADR: .WORD $MAIL : SADDRESS OF APT MAILBOX (BITS 0-15) 
880 000504 000050 $TSTM: .WORD 50 +3 RUN TIM OF LONGEST TEST 
881 000506 000060 $PASTM: .WORD es — TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
882 000510 000055 $UNITM: .WORD 55 DDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
te 000512 000030 . WORD $2 TEND-SHAIL/2 LENGTH MAILBOX~E TABLE (WORDS) 
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~SBTTL COMMON TAGS 


Eh S ee eee RRR REE EER RRR RRR RRRRRRARRARERERASR RRR RASS SSSR RASS SE BY 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGF LOCATIONS 
7*USED IN THE PROGRAM. 


001000 -=1000 
SCMTAG: 3¢START OF COMMON TAGS 
000000 «WORD 0 
000 $TSTNM: .BYTE 0 ;zCONTAINS THE TEST NUMBER 
SERFLG: .BYTE Q ::CONTAINS ERROR FLAG 
000000 $ICNT: .WORD Q :zCONTAINS SUBTEST ITERATION COUNT 
000000 $LPADR: .WORD OQ +z CONTAINS SCOPE LOOP ADDRESS 
000000 $LPERR: .WORD 0 :sCONTAINS SCOPE RETURN FOR ERRORS 
000000 SERTT!: .WORD 0 ::CONTAINS TOTAL ERRORS DETECTED 
000 SITEMB: .BYTE 0 3sCONTAINS ITEM CONTROL BYTE 
01 SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
00 $ERRPC: .WORD 0 :zCONTAINS PC OF LAST ERROR INSTRUCTION 
000000 $GDADR: .WORD 0 :sCONTAINS ADDRESS OF ‘GOOD DATA 
$BDADR: .WORD 0 33 CONTAINS ADDRESS ae *BAD' DATA 
00 $GDDAT: .WORD Q 3sCONTAINS ‘GOOD’ DAT 
000000 $BDDAT: .WORD 0 3:CONTAINS "BAD* DAT A 
000000 «WORD 0 ;RESERVED--NOT TO BE USED 
000000 -WORD 0Q 
000 $AUTOB: .BYTE 0 AUTOMATIC MODE INDICATOR 
000 $INTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 
000000 -WORD 0 
177570 SWR : «WORD  DSWR ;zADDRESS OF SWITCH REGISTER 
177570 DISPLAY: .WORD DDISP ; ADDRESS OF Shea REGISTER 
177560 $TKS: 177560 7eTTY KBD STATU 
177562 $TKB: 177562 :3TTY KBD BUFFER 
177564 $TPS: 177564 7: TTY PRINTER STATUS REG. ADDRESS 
177566 $TPB: 177566 3:TTY PRINTER BUFFER REG. ADDRESS 
000 $NULL: .BYTE 0 3sCONTAINS NULL CHARACTER FOR FILLS 
002 SFILLS: .BYTE 2 ssCONTAINS # OF FILLER CHARACTERS REQUIRED 
012 $FILLC: .BYTE 12 3 INSERT FILL CHARS. AFTER A ‘LINE F 
000 $TPFLG: .BYTE OQ 33''TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
000000 $TMPO: .WORD 0 ::USER DEFINED 
000000 $TMP1 -WORD 0 3sUSER DEFINED 
000000 $TMP2: .WORD OQ :;USER DEFINED 
000000 $TMP3: .WORD 0 7 USER DEFINED 
000000 $TMP4: .WORD 0 ::USER DEFINED 
000 $ESCAPE :0 :sESCAPE ON Binge ADDRESS 
077 $QUES: .ASCII /?/ QUESTION MA 
015 $CRLF: .ASCII <15> 3; CARRIAGE RETURN 
000012 $LF: ~ASCIZ <12> ;sLINE FEED 


SCARE REE REE EEE REREAD 


‘SBTTL APT MAILBOX-ETABLE 


LUE ARERR ERE EERE AEE REE REAR EEAEERAEARERREREe eee 


-EVEN 

$MAIL: 33APT MAILBOX 
000000 $MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
000000 $FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
000000 $TESTN: .WORD ATESTN ;; TEST NUMBER 


000000 $PASS: .WORD APASS ~ ;;PASS COUNT 








A 
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001110 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001112 000000 SUNIT: [WORD  AUNIT 21/0 UNIT NUMBER 
001114 000000 $MSGAD: {WORD AMSGAD ::MESSAGE ADDRESS 
001116 000000 SMSGLG: :WORD AMSGLG MESSAGE LENGTH 
001120 $ETABLE: :TAPT ENVIRONMENT TABLE 
001120 000 $ENV:  .BYTE AENV 2: ENVIRONMENT BYTE 
001121 000 SENVM: “BYTE AENVM ::ENVIRONMENT MODE BITS 
001122 000000 $SWREG: -WORD ASWREG ::APT SWITCH REGISTER 
001124 000400 SUSWR: WORD AUSWR ::USER SWITCHES 
001126 000000 SCPUOP: :WORD —ACPUOP CPU TYPE .OPT IONS 
:* BITS 15-11°CPu 
ts 1704s 01. ni/05= 02,11/20=03, 11/40=04,11/45=05 
te /70=06,PDQ=07,0=10 
te BIT 10=REAL TIME’ CLOCK 
be BIT 9=FLOATING POINT PROCESSOR 
se BIT 8=MEMORY MANAGEMENT 
001130 000 $MAMS1: .BYTE  AMAMS1 ;;HIGH ADDRESS.M,S. BYTE 
001131 000 $MTYP1: [BYTE  AMTYP1 <:MEM. TYPE.BLKAI 
it MEM. TYPE BYTE. -= (HIGH BYTE) 
te 900 NSEC CORE=001 
i 300 NSEC BIPOLAR=002 
o 500 NSEC MOS=003 
001132 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
: MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
001134 000 $MAMS2: .BYTE AMAMS2 ;:HIGH ADDRESS.M.S. BYTE 
001135 000 $MTYP2: [BYTE AMTYP2 ::MEM. TYPE ,BLKA2 
001136 000000 SMADR2: :WORD AMADR2 ; :MEM. LAST “ADDRESS .BLK#2 
001140 000 $MAMS$: [BYTE AMAMS3 ::HIGH ADDRESS,M.S.BYTE 
001141 000 $MTYP3: “BYTE AMTYP3 ::MEM.TYPE,BLKA3 
001142 000000 $MADR3: WORD AMADR3 ::MEM.LAST ADDRESS BLKA3 
001144 000 $MAMS4: “BYTE AMAMSG ::HIGH ADDRESS,M.S.BYTE 
001145 000 SMTYPG: (BYTE AMTYP4 ;:MEM. TYPE ,BLK#4 
001146 000000 S$MADRG: “WORD  AMADR4 ::MEM.LAST ADDRESS,BLK&%4 
001150 000300 $VECT1: (WORD  AVECT1 <:INTERRUPT VECTOR#1,BUS PRIORITYA1 
001152 000000 $VECT2: [WORD AVECT2 } PINTERRUPT VECTORA2BUS PRIORITY#2 
001154 176500 $BASE: “WORD  ABASE ::BASE ADDRESS OF EQUIPMENT UNDER TEST 
001156 000000 $DEVM: “WORD ADEVM ::DEVICE MAP 
001160 $ETEND: 7 | 
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oat .SBTTL ERROR POINTER TABLE 
982 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
983 ‘*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
984 : LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE May 3 - PERTINENT. 
985 *NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 
aoe ¢ #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
988 s* EM 3:POINTS TO THE ERROR MESSAGE 
989 :* DH 3z:POINTS TO THE DATA HEADER 
990 s* DT 3;POINTS TO THE DATA 
991 ;* DF POINTS TO THE DATA FORMAT 
992 
993 
994 001160 $SERRTB: 
995 
996 001160 . SERRTB: 
pat 001160 000020 -BLKW = 20 ;THIS BLOCK OF 16 LOCATIONS IS HERE TO PACIFY SYSMAC 
999 
1000 
1001 001220 020510 EMS ;SLU1_TCSR DONE NOT SET WITH RESET 
1002 001222 027431 DHS "'TEST# ERR PC _TCSR’ 
1003 001224 030212 DT5 SSTESTN, SERRPC,CTCSR 
Oe 001226 000000 0 
1006 001230 020552 EM6 3SLU1_RCSR DID NOT RETURN SSYNC 
1007 001232 027456 DH6 'TEST# ERR PC RCSR"" 
1008 001234 030222 DT6 TSTESTN,SERRPC,CRCSR 
ine 001236 000000 0 
1011 001240 020611 EM7 ;SLU1_RBUF DID NOT RETURN SSYNC 
1012 001242 027503 DH7 "TESTA ERR PC RBUF' 
1013 001244 030232 DT7 7 STESTN, SERRPC , CRBUF 
iRi¢ 001246 000000 0 
oe 001250 000004 -BLKW 4 MORE PACIFICATION 
1018 
1019 001260 020650 EM11 :'‘CAN NOT SET BIT2 S. SLU1 TCSR** 
001262 027431 DH5 TESTA ERR PC TCS 
001264 030212 DTS [STESTN,SERRPC, cTESR 
001266 000000 0 
001270 000004 -BLKW 4 STILL MORE PACIFICATION 
001300 020706 EM13 "RESET DID NOT CLEAR BIT2 OF SLU1 TCSR"’ 
001302 027431 DH5 'TEST# ERR PC _TCSR' 
001304 030212 DT5 STESTN,SERRPC,CTCSR 
001306 000000 0 
001310 020754 EM14 ;‘BIT6 OF SLU1 "e NOT CLEAR AFTER RESET2 
001312 027431 DHS 'TEST# ERR PC TCSR' 


001314 030212 DT5 :STESTN, SERRPC,CTCSR 
001316 000000 0 
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1036 
1037 001320 021024 EM15 3"'SLU1_XMIT INTERRUPTED WITH PRIORITY i 
1038 001322 027431 DH5 "TESTA ERR PC TCSR' 
1039 001324 030212 DTS TSTESTN, SERRPC,CTCSR 
Se 001326 000000 0 
1042 001330 021072 EM16 7''CAN NOT SET we of SLU1 TCSR’ 
1043 001332 027431 DHS s"'TESTA ERR PC 
1044 001334 030212 DTS :STESTN, SERRPC, cTESR 
a 001336 000000 0 
1047 001340 021130 EM17 3"'CAN_NOT CLEAR 74 J OF SLUT TCSR’’ 
1048 001342 027431 DH5 TESTA ERR PC TCS 
1049 001344 030212 DT5 [STESTN,SERRPC, cTESR 
bbs 001346 000000 0 
1052 001350 021170 EM20 7" RESET DID NOT a! BIT6 OF SLU1 TCSR’’ 
1053 001352 027431 DH5 s'TESTA ERR PC 
1054 001354 030212 DTS TSTESTN,SERRPC, cTESR 
inks C01356 000000 0 
1057 001360 021236 EM21 :'BIT6 OF SLU1 RCSR NOT CLEAR AFTER RESET’' 
1058 001362 027456 DH6 "TESTA ERR PC RCSR' 
1059 001364 030222 DT6 TSTESTN,SERRPC,CRCSR 
ney 001366 000000 0 
1062 001370 021306 EM22 :''SLU1_RCVR INTERRUPT WITH PRIORITY 7°" 
1063 001372 027456 DH6 'TEST# ERR PC RCSR"' 
1064 001374 030222 DT6 ;STESTN, SERRPC,CRCSR 
1oer 001376 000000 0 


1067 001400 021352 EM23 :‘‘CAN NOT SET BIT6 $ SLU1 RCSR"’ 
1068 001402 027456 DH6 "TESTA ERR PC RCSR 
1069 001404 030222 DT6 :STESTN, SERRPC,CRCSR 
fa 001406 000000 0 
1072 001410 021410 EM24 :''CAN_NOT CLEAR BIT6 OF SLUT RCSR"’ 
1073 001412 027456 DH6 "TESTA ERR PC RCSR’ 
1074 001414 030222 DT6 :STESTN, $ERRPC,CRCSR 
ieee 001416 00000 0 
“1077 001420 021450 EM25 :""CAN_NOT CLEAR a OF SLU1 RCSR WITH RESET2 
1078 001422 027456 DH6 TESTA ERR PC 
1079 001424 030222 DT6 TSTESTN, SERRPC, CRESR 
ey 001426 000000 0 
1082 001430 021523 EM26 :''SLU1 RECEIVER DONE NEVER SET"’ 
1083 001432 027456 DH6 'TEST# ERR PC RCSR' 
1084 001434 030222 DT6 :STESTN, SERRPC,CRCSR 
by 001436 000000 0 
1087 001440 021560 EM27 "RESET DID NOT CLEAR SLU1 RCVR DONE'* 
1088 001442 027456 DH6 'TEST# ERR PC RCSR' 


?STESTN, S$ERRPC,CRCSR 
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1092 001450 021623 EM30 "READING SLU1 RBUF DID NOT CLEAR RCVR DONE"’ 
1093 001452 027456 DH6 :‘TEST# ERR PC RCSR"’ 

1094 001454 030222 DT6 ;STESTIN, SERRPC,CRCSR 

Wee 001456 000000 0 

1097 001460 021675 EM31 3SLU2 TCSR DID NOT RETURN SSYNC 

1098 001462 027431 DH5 :'‘TESTA ERR PC _TCSR"’ 

1099 001464 030242 DT31 7 STESTN,SERRPC,TCSR 

TOT 001466 000000 0 

1102 001470 021734 EM32 7SLU2 TBUF DID NOT RETURN SSYNC 

1103 001472 027530 DH32 :''TESTA ERR PC _TBUF"’ 

1104 901474 030252 DT32 i STESTN, SERRPC , TBUF 

1sae 001476 000000 0 

1107 001500 021773 EM33 y""SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL’ 
1108 001502 027431 DH5 :‘‘TESTA ERR PC _TCSR"’ 

1109 001504 030242 DT31 ;STESTN,SERRPC,TCSR 

aie 001506 000000 0 

1112 001510 022045 EM34 ;"'SLU2 TCSR DONE NOT SET AFTER TRANSMIT’ 
1113 001512 027431 DHS :'‘TESTA ERR PC _TCSR"’ 

1114 001514 030242 DT31 STESTN,SERRPC,TCSR 

My 001516 000000 0 

1117 001520 022113 EM35 y""SLU2 TCSR DONE NOT SET WITH RESET’’ 
1118 001522 027431 DHS 7'‘TESTA ERR PC_ TCSR"’ 

1119 001524 030242 DT31 $TESTN,ERRPC,TCSR 

115% 001526 000000 0 

1122 001530 022155 EM36 3'"SLU2 RCSR DID NOT RETURN SSYNC"' 
1123 001532 027456 DH6 :'‘TESTA ERR PC_ RCSR"’ 

1124 001534 030262 DT36 7 $STESTN,ERRPC,RCSR 

ac 001536 000000 0 

1127 001540 022214 EM37 ;SLU2 RBUF DID NOT RETURN SSYNC"’ 
1128 001542 027503 DH7 :‘‘TEST# ERR PC_ RBUF'’ 

1129 001544 030272 D137 7 STESTN, ERRPC ,RBUF 

St 001546 000000 0 

1132 001550 022253 EM40 ;'BITO OF SLU2 TCSR NOT CLEAR AFTER RESET"’ 
1133 001552 027431 DH5 :‘TESTA# ERR PC TCSR 

1134 001554 030242 DT31 7 STESTN, SERRPC,TCSR 

a 001556 000000 0 

1137 001560 022323 EM41 7''CAN NOT SET BITO OF SLU2 TCSR"’ 
1138 001562 027431 DH5 ‘'TEST# ERR PC _TCSR 

1139 001564 030242 DT31 :STESTN, SERRPC,TCSR 

he 001566 000000 0 

1142 001570 022361 EM42 7""CAN NOT CLEAR BITO OF SLU2 TCSR"’ 
1143 001572 027431 DH5 7"‘TESTA ERR PC _TCSR 

1144 001574 030242 DT31 STESTN, SERRPC,TCSR 

iver 001576 000000 0 

1147 001600 022421 EM43 ;"RESET DID NOT CLEAR BITO OF SLU2 TCSR’’ 
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1148 001602 027431 DH5 :"‘TEST# ERR PC _TCSR 
1149 001604 030242 DT31 ‘ ;STESTN,SERRPC,TCSR 
BP 001606 000000 0 
1152 001610 022467 EM44 ;'BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET2 
1153 001612 027431 DH5 ;''TESTA ERR PC _TCSR 
1154 001614 030242 D131 i STESTN,SERRPC,TCSR 
see 001616 000000 0 
1157 001620 022537 EM45 3''SLU2 XMIT INTERRUPTED WITH PRIORITY 7°° 
1158 001622 027431 DH5 :'‘TESTA ERR PC _TCSR 
1159 001624 030242 DT31 7 STESTN,SERRPC,TCSR 
Bb 001626 000000 0 
1162 001630 022605 EM46 7'"CAN NOT SET BIT6 OF SLU2 TCSR"’ 
1163 001632 027431 DHS :"'TESTA ERR PC _TCSR 
1164 001634 030242 DT31 7 STESTN,SERRPC,TCSR 
1142 001636 000000 0 
1167 C01640 022643 EM47 7""CAN NOT CLEAR BIT6 OF SLU2 TCSR"’ 
1168 001642 027431 DHS :"‘TESTA ERR PC TCSR 
1169 001644 030242 DT31 7 STESTN,SERRPC,TCSR 
ie 001646 000000 0 
1172 001650 022703 EM5O ;"RESET DID NOT CLEAR BIT6 OF SLU2 TCSR"’ 
1173 001652 027431 DHS 7''TESTA ERR PC TCSR 
1174 001654 030242 DT31 7 STESTN, SERRPC,TCSR 
MT | 001656 000000 0 
1177 001660 022751 EM51 ;'BIT6 OF SLU2 RCSR NOT CLEAR AFTER RESET’ 
1178 001662 027456 DH6 :‘‘TEST# ERR PC_RCSR"’ 
1179 001664 030262 D136 ;STESTN,ERRPC,RCSR : 
ir 001666 000000 0 
1182 001670 023021 EM52 7''SLU2 RCVR INTERRUPT WITH PRIORITY 7°° 
1183 001672 027456 DH6 7''TEST# ERR PC_RCSR"’ 
1184 001674 030262 D136 7 $TESTN,ERRPC,RCSR 
HH 001676 000000 0 
1187 001700 023065 EM53 7"'CAN NOT SET BIT6 OF SLU2 RCSR"’ 
1188 001702 027456 DH6 7'‘TESTA ERR PC_RCSR"’ 
1189 001704 030262 D136 $TESTN,ERRPC,RCSR 
Hb 001706 000000 0 
1192 001710 023123 EM54 "CAN NOT CLEAR BIT6 OF SLU2 RCS?" 
1193 001712 027456 DH6 7'TESTA ERR PC_RCSR" 
1194 001714 030262 D136 7 $TESTN,ERRPC,RCSR 
ee 001716 000000 0 
1197 001720 023163 EM55 ' s"'CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET2 
1198 001722 027456 DH6 7'‘TEST# ERR PC_RCSR"* 
1199 001724 030262 D136 :STESTN,ERRPC,RCSR 
iy 001726 000000 0 
1202 001730 023236 EMS6 y’"SLU2 RECEIVER DONE NEVER SET** 
1203 001732 027456. DH6 7"‘TEST# ERR PC RCSR"’ 
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001734 030262 DT36 i STESTN,ERRPC,RCSR 

001736 000000 0 

001740 023273 EMS7 Sette DID NOT or SLU2 RCVR DONE"’ 
001742 027456 DH6 z"TEST# ERR PC 

001744 030262 D136 7 STESTN,ERRPC, RCSR 

001746 000000 0 

001750 023336 EM60 7; READING i RBUF DID NOT CLEAR RCVR DONE’ 
001752 027456 DH6 z"'TEST# ERR RCSR’’ 

001754 030262 DT36 ;STESTN,ERRPC, PRES 

001756 000000 0 

001760 023410 EM61 sLKS DID NOT RETURN SSYNC 

001762 027555 DH61 STEST# ERR PC LKS"' 

001764 0303C2 DT61 ;STESTN,ERRPC,LKS 

001766 000000 0 

001770 023441 EM62 :'BIT6 OF LKS NOT CLEAR AFTER RESET"’ 
001772 027555 DH61 "TESTA ERR PC LKS" 

001774 030302 DT61 ;STESTN, SERRPC .LKS 

001776 000000 0 

002000 023503 EM63 .'LKS_ INTERRUPT WITH PRIORITY 7°* 
002002 027555 DH61 s"'TEST# ERR PC LKS"' 

002004 030302 DT61 7STESTN, SERRPC ,LKS 

002006 000000 0 

002010 023541 EM64 2)'CAN NOT SET BIT6 OF LKS"’ 

002012 027555 DH61 ‘TESTA ERR PC LKS"' 

002014 030302 DT61 7 $TESTN, SERRPC,LKS 

002016 000000 a 

002020 023571 - EM65 :)'CAN_NOT CLEAR BIT6 OF LKS"’ 
002022 027555 DH61 :TEST# ERR PC LKS'' 

002024 030302 DT61 ;STESTN, SERRPC ,LKS 

002026 000000 0 

002030 023623 EM66 7" RESET DID NOT nee BIT6 OF ‘LKS"’ 
002032 027555 DH61 : :"TESTA ERR PC 

002034 030302 DT61 SSTESTN, SERRPC, Lks 

002036 000000 0 

002040 023663 EM67 :,BIT? OF LKS ug * sf AFTER RESET2 
002042 027555 DH61 ""TEST# ERR PC 

002044 030302 DT61 STESTN, SERRPC, Lks 

002046 000000 0 

002050 023723 EM70 3°"CAN_NOT CLEAR BIT? OF LKS"’ 
002052 027555 DH61 TEST# ERR PC LKS"' 

002054 030302 DT61 STESTN, SERRPC ,LKS 

002056 000000 0 

002060 023755 EM7i :"BIT7 OF LKS wi A ns SET" 
002062 027555 DH61 SUTEST# ERR PC 


002064 030302 DI61 SSTESTN, SERRPC, uKS 
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000000 
024132 


000000 
024230 


000000 
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000000 
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000000 
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000000 
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024541 


MACY11 30A(1052) 


B 3 
19=MAR=81 14:27 PAGE 27 


ERROR POINTER TABLE SEQ 0027 
0 
EM72 erate TO ONE INTERNAL ADDRESS qty ANOTHER 
DH72 :‘‘TEST# ERR PC GOOD BAD GDDATA BDDAT 
DT72 [STESTN, SERRPC ,SGDADR, SBDADR, $GDDAT, SADDAT 
-BLKW THE LAST IN A LONG LINE OF PACIFICATION 
EM74 3"'SLU1 XMIT INTERRUPTS WHEN DISABLED** 
DHS TESTA ERR PC TCSR'' 
be TSTESTN, SERRPC,CTCSR 
EM75 3"'SLU1 XMIT DID NOT INTERRUPT"* 
DH5 "‘TEST# ERR PC TCSR"' 
. 7 STESTN, SERRPC.CTCSR 
EM76 "'SLU1 XMIT INTERRUPT AT PRIORITY 7 
DH5 "'TEST# ERR PC TCSR"' 
sf 7 STESTN, SERRPC,CTCSR 
EM77 "'SLU1_ XMIT INTERRUPTS WITH ENABLE CLEAR" 
DH5 STEST# ERR PC TCSR"' 
.*7 TSTESTN, SERRPC,CTCSR 
EM100 3°‘SLU1_XMIT DID NOT INTERRUPT"’ 
DHS TESTA ERR PC TCSR’ 
Bt TSTESTN, SERRPC,CTCSR 
EM101 7'"SLU1 XMIT RE- ~INTERRUPTED"* 
DH5 s''TEST# ERR PC TCSR"' 
ies TSTESTN, SERRPC,CTCSR 
EM102 i heete = SLU1 "at DID NOT CLEAR INTERRUPT** 
DH5 ‘TESTA ERR PC TCSR"’ 
Be “STESIN, SERRPC,CTCSR 
EM103 “SLUT RCVR INTERRUPTS WITH ENABLE CLEAR" 
DH6 i'TEST# ERR PC RCSR'' 
afe T$STESTN, SERRPC,CRCSR 
EM104 3"'SLU1 RCVR DID NOT JNTERRUPT"’ 
DH6 7'‘TEST# ERR PC  RCSR' 
Ne T$STESTN, SERRPC,CRCSR 
EM105 3'SLU1 RCVR INTERRUPTS AT PRIORITY 7°" 


ee ree me tee - : 
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CJKDFA.P 19=MAR=81 14:27 ERROR POINTER TABLE SEQ 0028 
1316 002222 027456 DH6 ;"'TEST# ERR PC RCSR"’ 
1317 002224 030222 DT6 TSTESTN, SERRPC,CRCSR 
1318 002226 000000 0 
1320 902230 024604 EM106 3‘'SLU1_RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR"’ 
1321 002232 027456 DH6 "TESTA ERR PC RCSR"’ 
1322 002234 030222 DT6 TSTESTN, SERRPC,CRCSR 
a7 002236 000000 0 
1325 002240 024665 —M107 ;*‘SLU1 RCVR DID NOT INTERRUPT"’ 
1326 002242 027456 DH6 iTEST# ERR PC RCSR’ 
1327 002244 030222 DT6 :STESTN, $ERRPC,CRCSR 
1356 002246 000000 0 
1330 002250 024721 EM110 ‘meet RECEIVER RE- _— 
1331 002252 027456 DH6 r"'TESTA# ERR PC RCSR 
1332 002254 030222 DT6 SSTESTN, SERRPC,CRCSR 
1ee7 002256 000000 0 
1335 C02260 024756 —M111 3*‘SLU1 READING RBUF DID NOT CLEAR INTERRUPT" 
1336 002262 027456 DH6 "TESTA ERR PC RCSR'' 
1337 002264 030222 DT6 $TESTN, SERRPC,CRCSR 
ae 002266 000000 0 
1340 002270 025030 EM112 ;"RESET DID NOT CLEAR SLU1 RCVR INTERRUPT"’ 
1341 002272 027456 DH6 z"'TESTA ERR PC RCSR' 
1342 002274 030222 DT6 :STESTN,SERRPC,CRCSR 
LP oe 002276 000000 0 
1345 002300 025100 EM113 :*'SLU1 "OR" FLAG DID NOT SET"’ 
1346 002302 027456 DH6 "TESTA ERR PC RCSR' 
1347 002304 030222 DT6 TSTESTN, SERRPC,CRCSR 
Per 002306 000000 0 
1350 002310 025133 EM114 3''SLU1_"ERROR' NOT SET WITH *OR* FLAG’ 
1351 002312 027456 DH6 TESTA ERR PC RCSR' 
1352 002314 030222 DT6 7 STESTN, $ERRPC,CRCSR 
\ee7 002316 000000 0 
1355 002320 025177 —M115 z'DATA COMPARE ERROR** 
1356 002322 027657 DH115 ‘TESTA ERR PC CRCSR_ GOOD BAD"' 
1357 002324 030330 DT115 TSTESTN, SERRPC,CRCSR,GD,BD 
1eee 002326 000 
1360 002330 025222 EM116 z''SLU2_XMIT INTERRUPTS WHEN DISABLED" 
1361 002332 027431 DH5 ‘TESTA ERR PC _TCSR'' 
1362 002334 030242 D131 :STESTN, SERRPC,TCSR 
a7 002336 000000 0 
1365 002340 025265 EM117 3""SLU2 XMIT DID ie INTERRUPT" 
1366 002342 027431 DH5 S'TEST# ERR PC TCSR 
1367 002344 030242 DT31 TSTESTN, S$ERRPC,TCSR 
i 002346 000000 0 
1370 002350 025321 EM120 z''SLU2 XMIT INTERRUPT AT PRIORITY 7°" 


1371 002352 027431 DH5 STEST# ERR PC TCSR'' 
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1372 002354 030242 pT31 :$TESTN, SERRPC,TCSR 

1373 002356 000000 0 

1375 002360 025363 —M121 ;"'SLU2_XMIT INTERRUPTS WITH ENABLE CLEAR" 
1376 002362 027431 DHS TEST# ERR PC TCSR' 

1377 002364 030242 DT31 '$TESTN, $ERRPC,TCSR 

1378 002366 000000 0 

1380 002370 025432 EM122 ;"'SLU2_XMIT DID NOT_INTERRUPT"' 

1381 002372 027431 DHS ‘TESTA ERR PC TCSR’ 

1382 002374 030242 D131 * $TESTN, $ERRPC,TCSR 

1385 002376 000000 0 

1385 002400 025466 EM123 3''SLU2_XMIT RE-INTERRUPTED'’ 

1386 002402 027431 DHS ‘'"TEST# ERR PC TCSR'' 

1387 002404 030242 D131 S$TESTN, $ERRPC,TCSR 

1388 002406 000000 0 

1390 002410 025517 EM124 :"'LOADING slu2 TBUF_DID NOT CLEAR INTERRUPT’' 
1391 002412 027431 DHS ‘TESTA ERR PC TCSR' 

1392 002414 030242 D131 SSTESIN, SE RRPC, TCSR 

1393 002416 000000 0 

1395 002420 025571 —M125 :"'SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR" 
1396 002422 027456 DH6 <""TEST# ERR PC RCSR'' 

1397 002424 030262 DT 36 '$TESTN, $ERRPC,RCSR 

1398 002426 000000 0 

1400 002430 025640 EM126 ;*'SLU2 RCVR DID NOT INTERRUPT"* 

1401 002432 027456 DH6 ‘'TEST# ERR PC RCSR'' 

1402 002434 030262 DT36 *$TESTN, SERRPC,RCSR 

1408 002436 000000 0 

1405 002440 025674 —M127 :''SLU2 RCVR INTERRUPTS AT PRIORITY 7°' 
1406 002442 027456 DH6 ‘"TEST# ERR PC RCSR 

1407 002444 030262 DT36 *$TESTN, $ERRPC,RCSR 

1408 002446 000000 0 

1410 002450 025737 EM130 :''SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR’ 
1411 002452 027456 DH6 <"TEST# ERR PC RCSR' 

1412 002454 030262 D136 *$TESTN, SERRPC .RCSR 

1413 002456 000000 0 

1415 002460 026020 —M131 :''SLU2 RCVR DID NOT INTERRUPT" 

1416 002462 027456 DH6 “"TEST# ERR PC RCSR’ 

1417 002464 030262 D136 ‘$TESTN, $ERRPC,RCSR 

1418 002466 000000 0 

1420 002470 026054 EM132 :"'SLU2 RECEIVER RE-INTERRUPTED"’ 

1421 002472 027456 DH6 ‘"TEST# ERR PC RCSR' 

1422 002474 030262 DT 36 S$TESTN, SERRPC,RCSR 

1423 002476 000000 0 

1425 002500 026111 EM133 s1'skue READING RBUF ai? NOT CLEAR INTERRUPT’ 
1426 002502 027456 DH6 *TEST# ERR PC RCSR 


1427 002504 030262 D136  STESIN, $SERRPC ,RCSR 
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| JKDFA.P11 19=MAR=81 14:27 ERROR POINTER TABLE SEQ 0030 
| be 002506 000000 0 . 
1430 002510 026163 —M134 ;"RESET DID NOT CLEAR SLU2 RCVR INTERRUPT"' 
1431 002512 027456 DH6 <""TEST# ERR PC RCSR' 
1432 002514 030262 DT36 *$TESTN, SERRPC,RCSR 
pt 002516 000000 0 
1435 002520 026233 —M135 z"'SLU2 ‘OR’ FLAG DID NOT SET’ 
1436 002522 027456 DH6 "TESTA ERR PC RCSR' 
1437 002524 030262 D136 *$TESTN, $ERRPC,RCSR 
bet 002526 000000 0 
1440 002530 026266 —M136 ;"'SLU2 ‘ERROR’ NOT SET WITH ‘OR* FLAG'' 
1441 002532 027456 DH6 "TESTA ERR PC RCSR'’ 
1442 002534 030262 D136 *$TESTN, $ERRPC,RCSR 
“? 002536 000000 0 
1445 002540 026332 EM137 ;"'SLU2 BREAK DID NOT TRANSMIT ALL ZEROES"* 
1446 002542 027723 DH137 ‘TESTA ERR PC RCSR_ DATA’ 
1447 002544 030344 Tis ©. + :$TESTN, $ERRPC ,RCSR, $BDDAT 
rr | 002546 000000 0 
1450 002550 026401 EM140 ;'BREAK DID NOT SET FRAMING ERROR"’ 
1451 002552 027456 DH6 "TESTA ERR PC RCSR' 
1452 002554 030272 DT6 *$TESTN, $ERRPC,RCSR 
1603 002556 000000 0 
1455 002560 026441 —EM141 ;"'SLU2_"ERROR' NOT SET WITH 'FR* FLAG'* 
1456 002562 027456 DH6 ‘TESTA ERR PC RCSR'' 
1457 002564 030262 DT 36 *$TESTN, SERRPC,RCSR 
1638 002566 000000 0 
1460 002570 026505 —M142 :'DATA COMPARE ERROR WITH CABLE" 
1461 002572 027760 DH142 "TESTA ERR PC RCSR GOOD BAD'' 
1462 002574 030356 D142 S$TESTN, SERRPC,,RCSR,GD BD 
1465 002576 000000 0 
1465. 002600 026543 EM143 ;"RTC_INTERRUPT AT PRIORITY 7°* 
1466 002602 027555 DH61 ‘TESTA ERR PC LKS'’ 
1467 002604 030302 DT61 *$TESTN, SERRPC .LKS 
“as 002606 000000 0 
1470 002610 026577 EM144 ;"RTC_INTERRUPTS WHEN DISABLED"' 
1471 002612 027555 DH61 :'"TEST# ERR PC LKS'' 
1472 002614 030302 DT61 ° *$TESTN, SERRPC,LKS 
1673 002616 000000 0 
1475 002620 026634 EM145 :''RTC INTERRUPT DID NOT OCCUR’ 
1476 002622 027555 DH61 *'TEST# ERR PC LKS'’ 
1477 002624 030302 D161 *$TESTN, $ERRPC, LKS 
: a” 002626 000000 0 
1480 002630 026670 EM146 ;"RTC_INTERRUPT DID NOT OCCUR" 
1481 002632 027555 DH61 "TESTA ERR PC LKS"" 
1482 002634 030302 DT61 *$TESTN, SERRPCLKS 
1483 002636 000000 0 


-————_--——— 
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3" RTC_DOUBLE INTERRUPT"’ 
TESTA ERR PC LKS"’ 
:STESTN, SERRPC,LKS 


;'RESET DID NOT CLEAR RTC INTERRUPT"* 
TESTA ERR PC LKS"’ 
SSTESTN, $ERRPC,LKS 


;RTC_INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS"* 
S'TEST# ERR PC LKS"' 
SSTESTN, SERRPC,LKS 


s“'CLOCK REPEATABILITY ERROR’ 
i"‘TESTA ERR PC_ LKS CNT1 CNT2"* 
i STESTN, SERRPC,LKS,F IRST,SECND 


3''SLU1 RECEIVER STATUS ERROR"* 
;"‘TESTA ERR PC CRCSR GOOD BAD" 
TSTESTN, SERRPC,CRCSR,$GDDTA, $BDDAT 


ine. ge hy STATUS ERROR 
:‘TESTN ERR PC RCSR GOOD BAD" 
‘ STESIN, SERRPC ,RCSR,$GDDAT , $BDDAT 


s'"INCORRECT RECEIVE COUNT SLU1 
:"'TEST# ERR PC RCSR TRANS RCV"" 
:STESTN, SERRPC,CRCSR,XMTCT1,RCVCT1 


7, SLU! DATA COMPARE ERROR IN EXERCISER"’ 
:'TEST# ERR PC CRCSR_ GOOD BAD"" 
:STESTN, SERRPC, CRCSR, GD ,BD 


:'‘INCORRECT RECEIVE COUNT SLU2 
:'TEST# ERR PC RCSR TRANS __RCV"" 
:STESTN, SERRPC .RCSR,XMTCT2,RCVCT2 


:‘"SLU2 DATA COMPARE ERROR IN EXERC TIER 
7‘"TEST# ERR PC RCSR GOOD 
:STESTN, $ERRPC,RCSR,GD,BD 


7'‘TRAP CATCHER’ 
STEST# ERR PC OLDPC TRAP ADR" 
7STESTN, SERRPC ,OLDPC ,BDVECT 


SEQ 0031 
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002779 
7 


003056 
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003216 
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177546 
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000102 
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003204 
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M 2 $L rt 4 
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3SLU2 COMMAND/STATUS REGISTER 

;SLU2 RECEIVER BUFFER 

;SLU2 TRANSMITTER COMMAND/STATUS REGISTER 
;SLU2 TRANSMITTER BUFFER 

; RECEIVER COMMAND/STATUS REGISTER 
RECEIVER BUFFER 

TRANSMITTER COMMAND/STATUS REGISTER 
;SLU1 TRANSMITTER BUFFER 

‘LTC COMMAND/STATUS REGISTER 


ADDRESSES FOR ON BOARD OPTIONS 


RECEIVER INTERRUPT VECTOR 
7 TRANSMITTER INTERRUPT VECTOR 


;CLEAR ERROR NO. 

ZCLEAR MESSAGE TYPE 

:CLEAR TEST NO. 

CLEAR FLAGS INDICATING DEVICES UNDER TEST 


THE COMMON TAGS ($CMTAG) AREA 


3zFIRST LOCATION TO BE CLEARED 
7:CLEAR MEMORY LOCATION 


; =LOOP oe IF NO 
SETUP THE STACK POINTER 


ASSCOPE ,a#IOTVEC ff ie VECTOR FOR SCOPE ROUTINE 
#340, aM1OTVEC+2 ;:LEVEL 7 
#SERROR , a#EMTVEC :EMT VECTOR FOR ERROR ROUTINE 
#340, aMEMTVEC+2 ;:LEVEL 7 


@#TRAPVEC 2, TRAP VECTOR FOR TRAP CALLS 


#340, @#TRAPVEC+2; LEVEL 
#SPWRDN, @APWRVEC ;;POWER_FAILURE VECTOR 
#340, aMPWRVEC+2 ::LEVEL 7 


ie Ee END-OF -PROGRAM COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 

;;ALLOW ONE ERROR PER TEST 

i INITIALIZE THE LOOP ADDRESS FOR SCOPE 
TUP iy & arr LOOP ADDRESS 

T FOUND OR IT IS 

P FOR A SOFTWARE SWITCH REGISTER. 

32SAVE ERROR VECTOR 


RCSR: WORD 176500 
RBUF : . WORD 176502 
TCSR: WORD 176504 
TBUF : WORD 176506 
CRCSR 77560 
CRBUF 177562 
CTCSR 177564 
C TBUF 17756 
LKS: . WORD 177546 
VECTOR 
RVECT . WORD 300 
RPSW .~ WORD 302 
TVECT . WORD 304 
TPSW: .~ WORD 306 
CRVECT: 60 
CRPSW: 62 
CTVECT: 64 
CTPSW 66 
RTCVT: .WORD 100 
RTCPSW: .WORD 102 
START: CLR $FATAL 
CLR $MSGTYP 
CLR $TESTN 
‘. CLR $DEVM 
.SBITL INITIALIZE THE COMMON TAGS 
32: CLEAR 
MOV ASCMTAG,R6 
CLR (R6) + 
CMP #SWR, R6 ;;DONE? 
os 
#1000, S 
ss INITIALIZE A FEW VECTORS 
Ov 
MOV 
MOV 
MOV #$T RAP, 
MOV 
MOV 
MOV 
MOV SENDCT ,SEOPCT 
CLR SESCAPE 
MOVB #1,$SERMAX 
MOV . op paee 
OV PERR 
EQUAL TO A ‘*1"', SETU 
MOV avERRVEC, -(SP) 
MOV #64$, aMERRVEC 


3:SET UP ERROR VECTOR 


SEQ 0032 


[ 
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| CJKDFA.P11 19=MAR=81 14:27 INITIALIZE THE COMMON TAGS SEQ 0033 
1596 003224 012737 177570 001040 MOV #DSWR,SWR :SETUP FOR A HARDWARE SWICH REGISTER 
| 1§97 003232 012737 177570 001042 MOV ADDISP, DISPLAY 3 TAND A HARDWARE DISPLAY REGISTER 
| = 9598 003240 022777 177777 175572 CMP #-1,aSWR :TRY TO REFERENCE HARDWARE SwWR 
1599 003246 001012 BNE 66$ ; BRANCH IF NO TIMEOUT TRAP OCCURRED 
1600 :AND THE HARDWARE SWR IS NOT = -1 
1601 003250 000403 BR 65$ + =BRANCH IF NO TIMEOUT 
1602 003252 012716 003260 648: MOV #65$, (SP) SSET UP FOR TRAP RETURN 
1603 003256 000002 RT] 


1605 003266 012737 000174 001042 MOV #Di SPREG,DISPL 
1606 003274 012637 000004 66$: MOV (SP)+, DAERRVEC ” ; :RESTORE ERROR VECTOR 


1608 003300 005037 001106 CLR $PASS ;CLEAR PASS COUNT 

1609 003304 132737 000200 001121 BITB MAPTSIZE,SENVM TITEST USER SIZE UNDER APT 

1610 003312 001403 BEQ 67$ 727YES,USE NON-APT SWITCH 

1611 003314 012737 001122 001040 MOV ASSWREG, SWR 72NO,USE APT SWITCH REGISTER 
1612 003322 67$: 

1613 -SBITL Hi VALUE FOR SOFTWARE SWITCH REGISTER 

1614 003322 005737 000042 442 7;ARE WE RUNNING UNDER XXDP/ACT? 
1615 603326 0010i2 BNE 68$ 7 BRANCH IF YES 

1616 003330 123727 001120 000001 CMPB SENV #1 : sARE WE RUNNING UNDER APT? 
1617 003336 001406 BEQ 68$ BRANCH IF YES 

1618 003340 023727 001040 000176 CMP SWR .4SwREG : 1 SOF TWARE SWITCH REG SELECTED? 
1619 003346 001005 BNE 69% ;BRANCH IF NO 

1620 003350 104406 GTSWR 7:GET SOFT-SWR SETTINGS 


BR 69$ 
1622 003354 112737 000001 001034 68$: MOVB #1,$AUTOB 32SET AUTO-MODE INDICATOR 


1624 003362 032777 000060 175450 BIT #BIT4!BITS,aSWR ;1S SLU1 TO BE TESTED 
1625 003370 001003 BNE 2$ zIF EITHER BIT IS SET THEN DON'T TEST IT 
1626 003372 052737 000001 001156 BIS #B1T0,$DEVM :SET DEVICE aLAS TO TEST SLUI 
1627 003400 032777 000050 175432 2%: BIT #BIT3'BITS,aSwR ;1S SLU2 TO BE TESTED 

003406 BN 3$ [IF EITHER BIT IS SET THEN DON'T TEST IT 
1629 003410 052737 000002 001156 BIS #BIT1,$DEVM SET DEVICE FLAG TO TEST SLU2 
1630 003416 032777 000100 175414 3$: BIT #B1T6,aSWR 71S ST 
1631 003424 001003 BNE 4$ ilF 
1632 003426 052737 000004 001156 BIS #B1T2,$DEVM iSE 
1633 003434 032737 000001 001156 4$: BIT +3 apa alt 4 

:IF 


1635 003444 000137 003700 JMP ID 


ES TEST XMIT REG. BEFORE TYPING TITLE 


O SKIP TESTS AND TYPE IT NOW 


| 325 
1604 003260 012737 000176 001040 65$: MOV ASWREG, SWR ae TO SOFTWARE SWR 
L 
B 
Sut UNDER TEST 
N 


Gamera 
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003560 


003564 
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010337 


000004 


010337 


000004 


100011 


005077 


000000 


000001 
00000 

003500 
177306 
016004 


000004 


000002 
000004 
003546 
177242 


016004 


000004 


000003 
000001 


001106 
004726 


177164 
177156 


177152 
177144 


016004 


001104 
000004 


001104 
000004 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


i$: 


1$: 


2$: 


SCOPE 


© eT EERE KEK EERE ERE EERE EERE EERE 


TEST ABILITY TO ACCESS SLU1 TCSR 


© Ree eT TT TTT TT TTT TTT REE EE ERR EERE EEE ERE 


#1,$TESTN 
ard ,R3 
#1$, 044 
aciCSR 


2$ 
(SP) +, (SP) + 


PC, SATY4 


R3,a44 


;;SET TEST NUMBER IN APT MAIL BOX 
[SAVE TIMEOUT VECTOR 
:SET UP TIMEOUT VECTOR 
; REFERENCE THE XMIT COMMAND/STATUS REG. 
GO TO END OF TEST 
“RESTORE SP AFTER TIMEOUT 
;:ONLY REPORT A FATAL ERROR 
32 THE ERROR NUMBER (FROM APT LIST) 


RESTORE TIMEOUT VECTOR 


53 © Be eR TTI I TT TTT TTI TTT TT TOT ITT TTT RITTER REE KEKE th 


:*TEST 2 


1812: 


1$: 


2$: 


SCOPE 
M 


TEST ABILITY TO ACCESS SLU1 TBUF 


I TT TT TT ITI TTT TTT ITT EEE EERE KE EEE EERE 


#2,$TESTN 
i 


2$ 
(SP)+,(SP)+ 


PC, SATY4S 


R3,a44 


3zSET TEST NUMBER i APT MAIL BOX 


7SE 
SREFERENCE THE XMIT BUFFER 
:GO TO END OF _ TEST 
SRESTORE SP AFTER TIMEOUT 

ONLY REPORT A FATAL ERROR 

32 THE ERROR NUMBER (FROM APT LIST) 


;RESTORE TIMEOUT VECTOR 


© I TI TOT TTT TO TOTO TITRE KIRKE E KERR ERE KEKE EEE 


TEST SLU1 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


© I TTI TREE REE EEK EERE ERE EEE EEE EEK 


TST3: 


70$: 


SCOPE 


#3,$TESTN 
#1 ,@ASENV 


$ 
aA4$PASS 
70$ 
SLU2RT 
ac TRUF 


acTcsR 
1$ 


ac TBUF 
acTcSR 


1$ 
PC, $ATY4 


7SET TEST NUMBER IN APT Dene BOX 
SARE WE RUNNING UNDER APT 

71F NO THEN DO TEST 

:1S THIS FIRST PASS 

:IF YES THEN DO THIS SERIES OF TESTS 
7; 1F NO ay SKIP THIS SERIES OF TESTS 


:BR IF CLEAR 
Ne asfonest rota oe REFRESH COULD CAUSE 


FILL DOUBLE BUFFER 
SCHECK DONE 
[BR IF CLEAR 
+s ONLY REPORT A FATAL ERROR 
; THE ERROR NUMBER (FROM APT LIST) 
:TCSR "'DONE'’ NOT CLEARED WITH TBUF FULL 


SEQ 0034 


a er 
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CJKDFA.P11 19=MAR=81 14:27 13 TEST SLU1 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED SEQ 0035 
1692 003652 005000 1$: CLR RO ;CLEAR TIMER 
1693 003654 105777 177124 e$: TSTB acTCcSR [CHECK FOR XMIT DONE 
1694 003660 100407 BM! ID :IF DONE SETS, BR TO END OF TEST 
1695 003662 005200 INC RO : INCREMENT TIMER 
16 003664 001373 BNE 2$ :BR IF TIMER NOT DONE 
1697 003666 004737 016004 JSR PC, SATYS ;;ONLY REPORT A FATAL ERROR 
1698 093672 000004 4 72 THE ERROR NUMBER (FROM APT LIST) 
1699 003674 000000 HALT 
1700 003676 000416 BR TST4 ;BR TO NEXT TEST, AND SKIP THE TYPEQUT THAT FOLLOWS 
1m ; BECAUSE OF THIS FAILURE 
1703 003700 023737 000042 000046 ID: cMP OA42,a#46 UNDER ACT11? 
1704 003706 001412 BEQ 6$ :IF YES, SKIP IDENT. TYPEOUT 
1705 003710 005737 001106 TST $PASS si3 THIS THE FIRST PASS? 
1706 003714 001007 BNE 6$ ;1F NOT BR TO NEXT TEST i. o— THE IDENTIFICATION TYPEOU 
1707 003716 005737 001110 TST $DEVCT 31S THIS THE fy SUBPAS 
1708 003722 001004 BNE 6$ [IF NOT, BRTO NEXT TEST 
1709 003724 104401 TYPE [TYPE PROGRAM INDENTIF ICATION 
1710 003726 030176 M1 
1711 C€037350 104401 TYPE ; TYPE NUMBER OF DEVICES UNDER TEST 
1712 003732 030210 M2 
at 003734 6$: 
1715 Fy Lol sdodololadodalalealahahelehelelaiaintahahababebabalsinbuiphebedabehedehelehaialedadalniaialebabatabebebnbubctalaiaiaiaiale 
1716 THTEST 4 TEST THAT SLU1 TCSR ‘DONE’ SETS WITH RESET 
1717 CISC ISIC IOI IISISISIDIIOIUISIIOIOIIOIOIOIIISIIOI ICICI TOTO ITT I IOI 
1718 003734 000004 1S 14: SCOPE 
1719 003736 012737 000004 001104 MOV #4, S$TEST 3:SET TEST NUMBER IN APT MAIL BOX 
1720 003744 032737 000001 001156 BIT #BITO, SWSDEVM :DO THESE TESTS FOR THIS DEVICE? 
1721 003752 001002 BNE 99$ :F YES CONTINUE WITH TESTS. 
1722 003754 000137 004726 JMP SLU2RT :1F NO GO TO START OF NEXT SET OF TESTS. 
1723 003760 99$: 
1724 003760 005077 177022 CLR aC TBUF ;LOAD TRANSMIT BUFFER 
1725 003764 105777 177014 1$: TSTB acTCSR ;WAIT FOR DONE 
1726 003770 100375 BPL 1$ 
1727 003772 005077 177010 CLR ac TBUF ;LOAD SECOND BUFFER 
1728 003776 000240 NOP 
1729 004000 000005 RESET CLEAR DONE WITH RESET 
1730 004002 105777 176776 TSTB actCcSR :CHECK FOR DONE SET 
73 004006 100401 BM! TSTS 7BR TO NEXT TEST IF DONE SET 
te 004010 104005 ERROR 5 zTCSR ‘DONE’ DOES NOT SET WITH RESET 
1735 
1736 
1737 CII III IO IOI OOD IOIOIIOIOIDIOIOIIOIIOIOIDIOI IIDC IOI IO 
1738 ;*TEST 5 TEST ABILITY TO ACCESS SLU1 RCSR 
1739 IIIS IO IIOIOI ICID IOIOISISIOIDIOI ICICI IIIS IICIOOI OIC IOI ir 
1740 004012 000004 1815: SCOPE 
1741 004014 012737 000005 001104 MOV #5,$TESTN SET TEST NUMBER _IN APT MAIL BOX 
1742 004022 013703 000004 MOV a4 ,R3 : SAVE TIMEOUT VECTOR 
1743 004026 012737 004042 000004 MOV #1$,a044 [SET UP TIMEOUT VECTOR 
1744 004034 005777 176740 TST acRCSR TACCESS RCSR 
ieaz 004040 000402 BR 2s [BR TO END OF TEST 
1747 004042 022626 1$: CMP (SP)+,(SP)+ RESTORE SP AFTER TIMEOUT 
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CJKDFA.P11 19=MAR=81 14:27 T5 TEST ABILITY TO ACCESS SLU1 RCSR SEQ 0036 


1748 004044 104006 ERROR 6 3;CAN NOT ACCESS RCSR 

fe 004046 010337 000004 2$: MOV R3,aA4 TRESTORE TIMEOUT VECTOR 

17 

172) WeTTTTTCTT TTC LATTA chee cece e eee teh 
1753 TEST 6 TEST ABILITY TO ACCESS SLU1 RBUF 

1754 CI IIIOIIUIOI I III IIIOIIOIIOIOIOIOII IOI III II IIUIOIUIOIOIIOIOTO TT i RR 
1755 004052 000004 1816: SCOPE 

1756 004054 012737 000006 001104 MOV #6,$TESTN 32SET TEST NUMBER IN APT MAIL BOX 
1757 004062 013703 000004 MOV a+ ,R3 SAVE TIMEOUT VECTOR 

1758 004066 012737 004102 000004 MOV #1$, 044 ;SET UP By ose VECTOR 

1759 004074 005777 176702 TST a@CRBUF TACCESS RBUF 

seat 004100 000402 BR 2$ [BR TO END OF TEST 

1762 004102 022626 1$: CMP (SP)+, (SP)+ ;RESTORE SP AFTER TIMEOUT 

1763 004104 104007 ERROR 7 CAN NOT ACCESS RBUF 

ee 004106 010337 000004 2$: MOV R3,a44 SRESTORE TIMEOUT VECTOR 

1766 

1767 

1768 DROS ISISIOIUIIOISISIDIIISIDISISISIOIIIIOIOIIOIOITOI IOI IIIT OI TOT TT ITI AIA AIA AIST 
1769 *TEST 7 TEST THAT SLU1 BIT2(MAINT. BIT) CAN BE SET & RESET 
1770 DEAR IOUS UISIIOISIIIISIEIIDISISIIISISIOISIIOIIIIDIIOISIOISIOIIIITIIIITII ICICI TIT IOS 
1771 004112 000004 ; TST7: SCOPE 

1772 004114 012737 000007’ 001104 MOV #7 ,STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
1773 004122 042777 000004 176654 BIC #BIT2,aCTCSR s;MAKE SURE BIT UNDER TEST IS INITIALIZED 
1774 004130 032777 000004 176646 BIT #BIT2,aCTCSR TEST FOR BIT2 OF TCSR CLEAR 

1775 004136 001404 BEQ 1$ [BR IF CLEAR 

1776 004140 004737 016004 JSR PC, SATY4 7 ONLY REPORT A FATAL ERROR 
1777 004144 000010 10 32 THE ERROR NUMBER (FROM APT LIST) 
1778 004146 000000 HALT 

1779 004150 052777 000004 176626 1$: BIS #B1T2,aCTCSR 7SET BIT2 OF TCSR 

1780 004156 032777 000004 176620 BIT #BI1T2,aCTCSR TEST FOR BIT2 SET 

1781 004164 001001 BNE 2$ :BR IF SET 

1782 004166 104011 ERROR 11 :BIT2 OF TCSR WILL NOT SET 

1783 004170 042777 000004 176606 2%: BIC #BIT2,aCTCSR ;CLEAR BIT2 OF TCSR 

1784 004176 032777 000004 176600 BIT #BIT2,aCTCSR TEST BIT2 CLEAR 

1785 004204 001404 BEQ 3 IF CLEAR 

1786 004206 004737 016004 JSR PC, SATY4 2 ONLY REPORT A FATAL ERROR 
1787 004212 000012 12 ERROR NUMBER (FROM APT LIST) 
1788 004214 000000 HALT ;BITO OF TCSR WILL NOT CLEAR 

1789 004216 052777 000004 176560 3$: BIS #BI1T2,aCTCSR :SET BIT2 OF TCSR 

1790 004224 000005 RESET ;CLEAR BIT2 WITH RESET 

1791 004226 032777 000004 176550 BIT #BIT2,aCTCSR TEST FOR BIT2 CLEAR 

1792 004234 001404 BEQ TST10 IF CLEAR, GO TO NEXT TEST 

1793 004236 042777 000004 176540 BIC ABIT2,aCTCSR [CLEAR BIT2, TO PRINT ERROR 

1794 004244 104013 ERROR 13 

4a-< 4 RESET DID NOT CLEAR BIT2 OF TCSR 
1797 

1798 : SIIUIIUISIOI II IOIIOIIOIIIIOIIOI IOI IOI IIS I ht tit it 
1799 S*TEST 10 TEST THAT SLU1 BIT6(XMIT INT EN) CAN BE SET & RESET 
1800 SII III IOI III III Rk ttt ttt ttt 
1801 004246 000004 18110: SCOPE 

1802 004250 012737 000010 001104 MOV #10, $TESTN 32SET TEST NUMBER IN APT MAIL 


1803 004256 042777 000100 176520 BIC #B1T6,aCTCSR MAKE SURE BIT UNDER TEST IS INITIALIZED 
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1804 004264 017703 176536 MOV OaCTVECT,R3 SAVE XMIT VECTOR 
1805 004270 012777 004320 176530 MOV #1$,acTVECT [SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1806 004276 004737 015056 JSR PC ,WRPSW SET PSW TO PRIORITY=7 
1 004302 000340 «WORD 340 
1808 004304 032777 000100 176472 BIT #B1T6,aCTCSR ; TEST BIT6 OF TCSR 
1809 004312 001404 BEQ 2$ ;BR IF ZERO 
1810 004314 104014 ERROR 14 
1811 ;BIT6 IN TCSR NOT CLEAR AFTER RESET 
ing 004316 000402 BR 2$ 
1814 004320 022626 1$: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
1815 004322 104015 ERROR 15 
1819 7XMIT INTERRUPT OCCURRED PRIO=7 
1818 004324 052777 000100 176452 2$: BIS #B1T6,aCTCSR ;SET BIT6 OF TCSR 
1819 004332 032777 000100 176444 BIT #B1T6,aCTCSR TEST BIT6 OF TCSR 
ies 004340 001001 BNE 3$ SBR, IF SET 
1822 004342 104016 ERROR 16 
nas? ; CANNOT SET BIT6 OF TCSR 
1825 004344 042777 000100 176432 3$: BIC #B1T6,aCTCSR :CLEAR BIT6 OF TCSR 
1826 004352 032777 000100 176424 BIT #B1T6,aCTCSR TEST BIT6 OF TCSR 
1827 004360 001401 BEQ 4$ ;BR IF CLEAR 
1828 004362 104017 ERROR 17 
+34 ; CANNOT CLEAR BIT6 OF TCSR 
1831 004364 4$: 
1832 004364 052777 000100 176412 BIS #B1T6,aCTCSR SET BIT6 OF TCSR 
1833 004372 000005 RESET :CLEAR BIT6 WITH RESET 
1834 004374 032777 000100 176402 BIT #B1T6,aCTCSR TEST BIT6 OF TCSR 
eee 004402 001401 BEQ 5$ ;BR IF CLEAR 
1837 004404 -104020 ERROR 20 
1838 CANNOT CLEAR BIT6 OF TCSR WITH RESET 
$44 004406 010377 176414 5$: MOV R3,@CTVECT SRESTORE XMIT VECTOR 
1841 
1842 © RH IR TI RE RII ERK EE ERE KER EKER EEE 
1843 ATEST 11 TEST THAT SLU1 BIT6 OF RCSR CAN BE SET & RESET 
1844 © ee RR TI I EERE EERE REECE EEK EEE EEE EEK 
1845 004412 000004 T8111: SCOPE 
1846 004414 012737 000011 001104 MOV #11,$TESTN szSeT aa NUMBER IN APT MAIL BOX 
1847 004422 042777 000100 176350 BIC #B1T6,aCRCSR: sMAKE SURE BIT UNDER TEST IS INITIALIZED 
1848 004430 017703 176366 MOV aCRVECT ,R3 SAVE RECEIVE VECTOR 
1849 004434 012777 004464 176360 MOV #1$,aCRVECT [SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1850 004442 004737 015056 JSR PC ,WRPSW 7SET PSW TO PRIORITY=7 
1851 004446 000340 WORD 340 
1852 004450 032777 000100 176322 BIT #B1T6,a@CRCSR TEST BIT6 OF RCSR 
1853 004456 001404 BEQ $ 
1854 004460 104021 ERROR 21 
1855 j;BIT6 OF RCSR NOT CLEAR AFTER RESET 
eg 004462 000402 BR 2s 


1858 004464 022626 1$: CMP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
1859 004466 104022 ERROR 22 
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8 
TEST THAT SLU1 BIT6 OF RCSR CAN BE SET & RESET SEQ 0038 


1860 :RCVR INTERRUPT WITH PRIORITY=7 
1862 004470 052777 000100 176302 28%: BIS #B1T6,aCRCSR SET BIT6 OF RCSR 

1863 004476 032777 000100 176274 BIT #B1T6,aCRCSR TEST BIT6 OF RCSR 

Ms 004504 001001 BNE 3$ “BR, IF SET 

1866 004506 104023 ERROR 23 

167 : CANNOT SET BIT6 OF RCSR 

1869 004510 042777 000100 176262 3$: BIC #BiT6,aCRCSR CLEAR BIT6 OF RCSR 

1870 004516 032777 000100 176254 BIT #B1T6,aCRCSR S TEST BIT6 OF RCSR 

7 004524 001401 BEQ 4$ ‘BR, IF CLEAR 

1873 004526 104024 ERROR 24 

16% ; CANNOT CLEAR BIT6 OF RCSR 

1876 004530 4$: 

1877 004530 052777 000100 176242 IS #B1T6,aCRCSR SET BIT6 OF RCSR 

1878 0045 000005 RESET ‘CLEAR BIT6OF RCSR WITH RESET 
1879 004540 032777 000100 176232 BIT #B1T6,aCRCSR ‘TEST BIT6 OF RCSR 

1880 004546 001401 BEQ 5$ ‘BR, IF CLEAR 

1882 004550 104025 ERROR 25 

1883 :CANNOT CLEAR BIT6 OF RCSR WITH RESET 
i + 004552 010377 176244 5$: MOV R3,a@CRVECT SRESTORE RECEIVE VECTOR 

1886 

1887 . 

1888 IIIT TOIT IA AAA SAS AISIAIS SSS SISSSSASS ISIS SSAA AIDE 
1889 <STEST 12 TEST THAT SLU1 RCVR DONE (7) SET & CLEAR PROPERLY 
1890 © eH I I I RK KEKE EERE EKER EKEKEE EK 
1891 004556 000004 iST12: SCOPE 

1892 004560 012737 000012 001104 MOV #12, $TESTN SET TEST NUMBER IN APT MAIL BOX 
1893 0045 052777 000004 176210 BIS #BIT2,aCTCSR : TURN ON INTERNAL MAINTENENCE WRAP AROUND 
1894 004574 5000 CLR RO SCLEAR TIMER 

1895 004576 005077 176204 CLR ac TRUF *LOAD TRANSMIT BUFFER 

1896 004602 105777 .176172 CWDONE: TSTB aCRCSR *CHECK FOR RECEIVER DONE 

1897 004606 BMI 1$ ‘BR, IF DONE 

1898 004610 005200 INC RO ‘INCREMENT TIMER, IF NOT DONE 
1899 004612 001373 BNE CWDONE “CONTINUE WAIT IF TIME REMAINS 
1900 004614 042777 000004 176162 BIC #B1T2,aCTCSR *CLEAR MAINTENANCE BIT 

1901 004622 104026 ERROR 26 

in RECEIVER DONE NEVER SET 

1904 004624 000005 1$: RESET CLEAR DONE WITH RESET 

1905 004626 105777 176146 TSTB @aCRCSR CHECK FOR DONE CLEAR 

1906 632 001404 BEQ 2$ 

1908 004634 042777 000004 176142 BIC #BIT2,aCTCSR CLEAR MAINTENANCE BIT 

1909 642 104027 ERROR 27 

Hs RESET DID NOT CLEAR RCVR DONE 
1912 004644 042777 000004 176126 2$: BIC #B1T2,@CRCSR :CLEAR MAINTENANCE BIT 

1914 

1915 DDO OO ER REE ERE EERE EER EEE EEE 
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TEST SLU1 THAT READING RBUF CLEARS RECEIVER DONE 


seTEST 13 TEST SLU1 THAT READING RBUF CLEARS RECEIVER DONE 
REE EEE EERE EERE EERE REE 
78113: SCOPE 
MOV #13, STESTN SET TEST NUMBER IN APT MAIL BOX 
RESET “CLEAR EVERYTHING 
BIS #BIT2,@CTCSR | :SET MAINTENANCE WRAP 
CLR ac TBF [LOAD TRANSMITTER 
1$: ste aCRCSR [WAIT FOR RECEIVER DONE 
MOV @CRBUF , RO ;READ RECEIVE BUFFER 
BIC #BIT2,@°TCSR | CLEAR MAINTENANCE BIT 
TSTB. = ACRCSR [CHECK FOR RECEIVE DONE CLEAR 
BEQ TST14 BR, IF CLEAR TO NEXT TEST 
ERROR 30 


READING RBUF DID NOT CLEAR RCVR DONE 


SEQ 0039 © 
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40 
CJKDFA.P11 19=MAR=81 14:27 113 TEST SLU1 THAT READING RBUF CLEARS RECEIVER DONE SEQ 0040 
1385 004726 SLU2RT: 
1933 TEE EERE REE REE E REE H 
1934 *STEST 14 TEST ABILITY TO ACCESS SLU2 TCSR 
1935 © ee Re HI TTT TT IER RRR REE EEE EEE EERE EEE EKER ERE EK 
1936 004726 000004 ré114: SCOPE 
1937 004730 012737 000014 001104 MOV #14,$TESTN ;SET TEST NUMBER IN APT MAIL BOX 
1938 004736 032737 000002 001156 BIT #B1T1,a4SDEVM “bo THESE TESTS FOR THIS DEVICE? 
1939 004744 001002 BNE 99$ :F YES CONTINUE WITH TESTS 
1940 004746 000137 006152 JMP LTCRT :1F NO GO TO START OF NEXT SET OF TESTS. 
1941 004752 99$: 
1942 004752 013703 000004 MOV a4 ,R3 7 SAVE TIMEOUT VECTOR 
1943 004756 012737 004772 000004 MOV #1$,a044 SET UP TIMEOUT VECTOR 
1944 004764 005777 176004 TST aTCSR REFERENCE THE XMIT COMMAND/STATUS REG. 
1945 004770 000402 BR 2$ ; GO TO END OF tg 
1946 004772 022626 1$: CMP (SP) +, (SP)+ RESTORE SP AFTER TIMEOUT 
1947 004774 104031 ERROR 31 :XMIT CSR ADDRESS DOES NOT RETURN SSYNC 
Lb ay 4 004776 010337 000004 2$: MOV R3,044 RESTORE TIMEOUT VECTOR 
1950 
1951 
1952 SR RII IOI IOI III TOTO IOI III OOOO IOI OIC III 
1953 SSTEST 15 TEST ABILITY TO ACCESS SLU2 TBUF 
1954 III IT TIT TI IIIT TTT ITI KK EERE KEKE EEE EK EEKK KKK 
1955 005002 000004 T8115: SCOPE 
1956 005004 012737 000015 001104 MOV #15,$TESTN 3 SET TEST NUMBER IN APT MAIL BOX 
1957 005012 013703 000004 MOV a4 ,R3 ;SAVE TIMEOUT VECTOR 
1958 005016 012737 005032 000004 MOV #1$, “aA ;SET UP TIMEOUT VECTOR 
1959 005024 005777 175746 TST @TBUF REFERENCE THE XMIT BUFFER 
1960 005030 000402 BR 2$ ;GO TO END OF TEST 
1961 005032 022626 1$: CMP (SP)+, (SP) + SRESTORE SP AFTER TIMEOUT 
1962 005034 104032 ERROR 32 :XMIT BUFFER ADDRESS DOES NOT REUTRN SSYNC 
seat 005036 010337 000004 2$: MOV R3, 044 SRESTORE TIMEOUT VECTOR 
1965 
1966 : rrr TT TTT TTT TCT CTL C CTCL eee eee cece hee e tS SPSS SRS SS! 
1967 T*TEST 16 TEST SLU2 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 
1968 © HT TT TT TT TOT TO TO TOTTORI ITO TTT REE EEE EERE REE 
1969 005042 000004 TST16: SCOPE 
1970 005044 012737 000016 001104 MOV #16,$TESTN :SET TEST NUMBER IN APT seni BOX 
1971 005052 032737 000001 001120 BIT #1, @ASENV ARE WE RUNNING UNDER APT 
1972 005060 001403 BEQ 70$ CTF NO THEN DO $2! 
1973 005062 005737 001106 TST aASPASS 71S THIS FIRST PASS 
1974 005066 001022 : BNE TST17 :I1F NO THEN SKIP TO NEXT TEST 
1975 005070 70$: 
1976 005070 005077 175702 CLR @TBUF ;LOAD XBUF 
1977 005074 105777 175674 TSTB aTCSR ;CHECK DONE 
1978 005100 100006 BPL 1$ :BR IF CLEAR 
1979 sf SLA SECOND ates BECAUSE REFRESH COULD CAUSE 
1980 : FIRST TEST TO FAIL 
1981 005102 005077 175670 CLR @TBUF 3;FILL DOUBLE BUFFER 
1982 005106 105777 175662 TSTB aTCSR + CHECK re 
1983 005112 100001 BPL 1$ ‘BR IF C 
1984 005114 104033 ERROR 33 :TCSR “DONE NOT CLEARED WITH TBUF FULL 


1985 005116 005000 1$: CLR RO SCLEAR TIMER 
1986 005120 105777 175650 2$: TSTB aTCSR TCHECK FOR XMIT DONE 
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C 41 
CJKDFA.P11 19=MAR=81 14:27 T16 TEST SLU2 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED SEQ 0041 

1987 005124 100403 BM! TST17 IF DONE SETS, BR TO NEXT TEST 
1988 005126 005200 INC RO + INCREMENT TIMER 
1989 005130 001373 BNE 2$ ‘BR IF TIMER NOT DONE 
Hb a 005132 104034 ERROR 34 *XMIT DONE BIT DOES NOT RESET AFTER TRANSMIT 
1 Job deladabatatadatahelelababeatelahehalehiabebalet-teheipbebedahehedebededtaleiaheltaialebealaleteintetetaialalaieiedel 
1994 SSTEST 17 TEST THAT SLU2 TCSR 'DONE'’ SETS WITH RESET 
1995 CII II IOI III IOI IOI III TOIT TOIT i i tink 
1996 005134 000004 tST17: SCOPE 
1997 005136 012737 000017 001104 MOV #17,$TESTN SET TEST NUMBER IN APT MAIL BOX 
1998 005144 032737 000001 001120 BIT #1, OASENV “ARE WE RUNNING UNDER APT 
1999 005152 001403 BEQ 70$ TIF NO THEN DO TEST 

005154 005737 001106 TST OASPASS :IS THIS FIRST PASS 
2001 005160 001015 BNE TST20 IF NO THEN SKIP TO NEXT TEST 
2002 005162 70$: 
2003 005162 005077 175610 CLR @TBUF ;LOAD TRANSMIT BUFFER 
2004 005166 105777 175602 1$: TSTB aTcsSR ;WAIT FOR DONE 
2005 005172 100375 BPL 1$ 

C05174 005077 175576 : CLR a TBUF ;LOAD SECOND BUFFER 
2007 005200 000240 NOP 
2008 005202 000005 RESET :CLEAR DONE WITH RESET 
2009 005204 105777 175564 TSTB aTCSR + CHECK FOR DONE SET 
oy 005210 100401 BMI TST20 ‘BR TO NEXT TEST IF DONE SET 
ONS 005212 104035 ERROR 35 :TCSR ‘DONE’ DOES NOT SET WITH RESET 
2014 
2015 
2016 Torre ere TT TTC CCC CTC CCACCCACACACCCS CCC Cece CeCe PSE S SES ARETE RSS OD 
2017 TSTEST 20 TEST ABILITY TO ACCESS SLU2 RCSR 
2018 : COI IOI IO III IOI IOI IOI IOI III IOI III IOI III IOI IOI IOI Ii 
2019 005214 000004 TST20: SCOPE 
2020 005216 012737 000020 001104 MOV #20, $TESTN 7 SET TEST NUMBER IN APT MAIL BOX 
2021 005224 013703 000004 MOV a4 ,R3 sSAVE TIMEOUT VECTOR 
2022 005230 012737 005244 000004 MOV #1$, ‘aes SET UP TIMEOUT VECTOR 
2023 005236 005777 175526 TST @RCSR SACCESS RCSR 
ooee 005242 000402 BR 2s ‘BR TO END OF TEST 
2026 005244 022626 18: CMP (SP)+, (SP) + sRESTORE SP AFTER TIMEOUT 
2027 005246 104036 ERROR 36 :CAN NOT ACCESS RCSR 
Sass 005250 010337 000004 2$: MOV R3,044 SRESTORE TIMEOUT VECTOR 
2030 
2031 
2032 © II TO TOI IOI TOI IO UII III OIRO nk 
2033 S*TEST 21 TEST ABILITY TO ACCESS SLU2 RBUF 
2034 oie i OI IOI IOI III III TOI IO Rito ttn tk in ttt 
2035 005254 000004 78121: SCOPE 
2036 005256 012737 000021 001104 MOV #21,$TESTN :SET TEST NUMBER IN APT MAIL BOX 
2037 005264 013703 000004 MOV avs ,R3 : SAVE TIMEOUT VECTOR 
2038 005270 012737 005304 000004 MOV #1$,a44 SET UP Fy Ae VECTOR 
2039 005276 005777 175470 TST @RBUF SACCESS RBUF 
Soet 005302 000402 BR 2$ ‘BR TO END OF TEST 


2042 005304 022626 1$: CMP (SP)+,(SP)+ RESTORE SP AFTER TIMEOUT 









005306 
005310 


005314 


005524 
005526 
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104037 
010337 


000004 


104042 
032737 
001403 
005737 
001014 


052777 
05 
104043 


000004 


104044 
000402 


022626 
104045 
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000004 


000022 
000001 
000001 


000001 
000001 


000001 
000001 


000001 


001106 


000001 
000001 
000001 


000023 


015056 
000100 


001104 
175442 
175434 


175422 
175414 


175402 
175374 


001120 


175344 
175334 
175324 


001104 
175304 


175314 


175256 
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TEST ABILITY TO ACCESS SLU2 RBUF 


ERROR 
MOV 


R3,a44 


;CAN_NOT ACCESS RBUF 
TRESTORE TIMEOUT VECTOR 


© Fe TTT TTT REE REE ER EEE EEE EEE 


TRTEST 22 


+8122: 


2$: 


3$: 


70$: 


SCOPE 


TEST SLU2 BITO(BREAK BIT) CAN BE SET & CLEARED & RESET 


© Re He ee Te TERRE REE REE ERE EEK EEE 


#22, $TESIN 
#B1T0,aTCSR 
> aba ac 


40 
#BITO,aTCSR 
eave 


41 
#B1T0,aTCSR 
A#BITO,aTCSR 
3$ 

42 

#1, QASENV 
70$ 


aASPASS 
TST23 


#B1TO,aTCSR 
#BITO,aTCSR 
TST 
#B1TO,aTCSR 
43 


;;SET TEST NUMBER IN APT MAIL BOX 
‘MAKE SURE BIT UNDER TEST IS INITIALIZED 
ee tt OF TCSR CLEAR 


IF AR 
;BITO WAS ry A AFTER RESET 
SET BITO_IN TCSR 

; TEST BIT. OF "Fes 


:BR IF SET 
;BITO OF TCSR WILL NOT SET 
[CLEAR BITO OF TCSR 
:TEST BITO OF TCSR 


;BITO OF TCSR WILL NOT CLEAR 


ARE WE RUNNING UNDER APT 
SIF NO THEN DO Jig 
:1S THIS FIRST PASS 
TIF NO THEN SKIP TO NEXT TEST 


SET BITO_IN TCSR 

CLEAR BITO WITH RESET 

TEST BIT ae: LEAR 

:BR IF CLE 

; CLEAR BITO. TO PRINT ERROR 
SRESET DID NOT CLEAR BITO OF TCSR 


© Re Ke eI RT TTT TTT TORTIE ERE REE EERE EEE 


TRTEST 23 


; $123: 


SCOPE 


TEST THAT SLU2 BIT6(XMIT INT EN) CAN BE SET & RESET 


© TI RTT TTT TOIT TOTTORI TI RTI IR EKER KER EERE EERE EERE 


#23, $TESTN 


#1$, aTVECT 
PC ,WRPSW 
-WORD 340 
#BIT6,aTCSR 
2$ 

44 

2$ 


cyesssrrs 


2iSET TEST NUMBER IN APT MAIL BOX 
MAKE SURE BIT UNDER TEST IS INITIALIZED 
SSAVE XMIT VECTOR 
7SET UP INTERRUPT VECTOR FOR ERROR REPORT 
SET PSW TO PRIORITY=7 


i TEST ag HF OF TCSR 
:BR IF ZERO 


;BIT6 IN TCSR NOT CLEAR AFTER RESET 


RESTORE SP AFTER INTERRUPT 
;XMIT INTERRUPT OCCURRED PRIOQ=7 


SEQ 0042 


E 4 
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CUKDFA.P11 19=MAR=81 14:27 123 TEST THAT SLU2 BIT6(XMIT INT EN) CAN BE SET & RESET SEQ 00435 
2099 005530 052777 000100 175236 2$: BIS #BI1T6,aTCSR ;SET BIT6 OF TCSR 
2100 005536 032777 000100 175230 BIT #B1T6,aTCSR ;TEST BIT6 OF TCSR 
S100 005544 001001 BNE 3$ ;BR, IF SET 
2103 005546 104046 ERROR 46 
Slo CANNOT SET BIT6 OF TCSR 
2106 005550 042777 000100 175216 3$: BIC #BI1T6,aTCSR ;CLEAR BIT6 OF TCSR 
2107 005556 032777 000100 175210 BIT #BI1T6,aTCSR ; TEST BIT6 OF TCSR 
2108 005564 001401 BEG 4$ ;BR IF CLEAR 
2109 005566 104047 ERROR 47 
$\i9 ;CANNOT CLEAR BIT6 OF TCSR - - 
2112 005570 032737 000001 001120 4$: BIT #1, dASENV ;ARE WE RUNNING UNDER APT 
2113 005576 001403 BEQ 70$ ;1F NO THEN DO TEST 
2114 005600 005737 001106 Tot OASPASS :IS THIS FIRST PASS 
2115 005604 001011 BNE 5$ ;1F NO THEN SKIP TO END OF TEST 
2116 005606 70$: 
2117 005606 052777 000100 175160 BIS #BIT6,aTCSR ;SET BIT6 OF TCSR 
2118 0605614 000005 RESET :CLEAR BIT6 WITH RESET 
2119 005616 032777 000100 175150 BIT #BIT6,aTCSR ;TEST BIT6 OF TCSR 
$5 005624 001401 BEQ 5$ ‘BR IF CLEAR 
2122 005626 104050 ERROR 50 
2123 CANNOT CLEAR BIT6 OF TCSR WITH RESET 
2124 005630 010377 175162 5$: MOV R3,@TVECT SRESTORE XMIT VECTOR 
3153 
2127 CI III IOI III III IOI IOI III III IIIS IOI IOI IOI 
2128 TSTEST 24 TEST THAT SLU2 BIT6 OF RCSR CAN BE SET & RESET 
2129 © he Te RT TOTTORI TOIT TOI TOTO ITT TTT IO IT RITE EERE 
2130 005634 000004 7124: SCOPE 
2131 005636 012737 000024 001104 MOV #24,$TESTN :,SET TEST NUMBER IN APT MAIL BOX 
2132 005644 042777 000100 175116 BIC #B1T6,aRCSR sMAKE SURE BIT UNDER TEST IS INITIALIZED 
2133 005652 017703 175134 MOV @RVECT,R3 ;SAVE RECEIVE VECTOR 
2134 005656 012777 005706 175126 MOV #1$,@RVECT ;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
2135 005664 004737 015056 JSR PC ,WRPSW :SET PSW TO PRIORITY=7 
2136 005670 000340 -WORD 340 
2137 005672 032777 000100 175070 BIT #BIT6, @RCSR ; TEST BIT6 OF RCSR 
2138 005700 001404 BEQ e$ 
2139 005702 104051 ERROR 51 
2140 ;BIT6 OF RCSR NOT CLEAR AFTER RESET 
$103 005704 000402 BR 2$ 
2143 005706 022626 1$: CMP (SP)+, (SP) + sRESTORE SP AFTER INTERRUPT 
2144 005710 104052 ERROR 52 
44 x zRCVR INTERRUPT WITH PRIORI TY=7 
2147 005712 052777 000100 175050 2$: BIS #BIT6,aRCSR 7SET BIT6 OF RCSR 
2148 005720 032777 000100 175042 BIT #BIT6,aRCSR ; TEST BIT6 OF RCSR 
$150 005726 001001 BNE 3$ ;BR, IF SET 
2151 005730 104053 ERROR 53 
$335 : CANNOT SET BIT6 OF RCSR 
2154 005732 042777 000100 175030 3$: BIC #B1T6,aRCSR ;CLEAR BIT6 OF RCSR 





pone on re 


| 


4 
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CUKDFA.P11 19=MAR=81 14:27 T24 TEST THAT SLU2 BIT6 OF RCSR CAN BE” SET & RESET SEQ 0044 

2155 005740 032777 000100 175022 BIT #B1T6,@RCSR ; TEST BIT6 OF RCSR 

$126 005746 001401 BEG 4$ :BR, IF CLEAR 
2158 005750 104054 ERROR 54 
$12D ; CANNOT CLEAR BIT6 OF RCSR 
2161 005752 032737 000001 001120 4$: BIT #1, dASENV ;ARE WE RUNNING UNDER APT 
2162 005760 001403 BEQ 70$ : IF NO THEN DO TEST 
2163 005762 005737 001106 TST a¥$PASS s1S THIS FIRST PASS 
2164 005766 001011 BNE 5$ ‘IF NO THEN SKIP TO END OF TEST 
2165 005770 70$: 
2166 005770 052777 000100 174772 BIS #BI1T6,ARCSR sSET BIT6 OF RCS 
2167 005776 000005 RESET ;CLEAR BIT60F RESR WITH RESET 
2168 006000 032777 000100 174762 BIT #B1T6,aRCSR ;TEST BIT6 OF RCSR 
$135 006006 001401 BEQ 5$ :BR, IF CLEAR 
2171 006010 104055 ERROR 55 
2172 CANNOT CLEAR BIT6 OF RCSR WITH RESET 
Sti 006012 010377 174774 5$: MOV R3,@RVECT sRESTORE RECEIVE VECTOR 
2175 
2176 
2177 © I III III IOI III IOI III III III II IIIS III 
2178 S*TEST 25 TEST THAT SLU2 RCVR DONE (7) SET & CLEAR PROPERLY 
2179 0 te TO IOI IOI IOI ORI IO IOI III IOI IO ttt 
2180 006016 000004 1S125: SCOPE 
2181 006020 012737 000025 001104 MOV #25,$TESITN :7;SET TEST NUMBER IN APT MAIL BOX 
2182 006026 005077 174740 CLR @RBUF : INITIALIZE REGISTER BEFORE TESTING 
2183 006032 ‘005000 CLR RO CLEAR TIMER 
2184 006034 005077 174736 CLR a *BUF * LOAD TRANSMIT BUFFER 
2185 006040 105777 174724 WDONE: TSTB @RCSR :CHECK FOR RECEIVER DONE 
2186 006044 100403 BMI 1$ [BR, IF DONE 
2187 006046 005200 INC RO > INCREMENT TIMER, IF NOT DONE 
2188 006050 001373 BNE WDONE + CONT INUE WAIT IF TIME REMAINS 
2189 006052 104056 ERROR 56 
He ;RECEIVER DONE NEVER SET 

- 2192 006054 032737 000001 001120 1$: BIT #1,Q4$ENV  ;ARE WE RUNNING UNDER APT 

2193 006062 001403 BEQ 70$ ;1F NO THEN DO TEST 
2194 006064 005737 001106 TST @ASPASS 1S THIS FIRST PASS 
2195 006070 001005 BNE 2s IF NO THEN SKIP TO END OF TEST 
2196 006072 70$: 
2197 006072 000005 RESET ;CLEAR DONE WITH RESET 
2198 006074 105777 174670 TSTB @RCSR sCHECK FOR DONE CLEAR 
phe4 006100 001401 BEQ 2$ 
2201 006102 104057 ERROR 57 
2202 :RESET DID NOT CLEAR RCVR DONE 
$so7 006104 005777 174662 2$: TST @RBUF :CLEAR RECEIVER BUFFER 
2205 
2206 
2207 EER REAR ERE ERE EERE ETE ED 
2208 TSTEST 26 TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 
2209 PTT T TOTTI el 


2210 006110 000004 1$126: SCOPE 
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2234 0 
2235: 006214 
2236 

2237 006216 
2238 006220 
2240 006222 


012737 


104060 


000004 


000402 


022626 
104061 


010337 


000004 


022626 
104063 


052777 
032777 
001001 


104064 


teirte 


174634 


174630 
174622 


000027 
000004 


006524 
000004 


006216 
174574 


000004 


000030 


015056 
000100 


000700 
000100 


001104 


000004 


001104 
174544 


174554 


174516 


174476 
174470 


MACY11 30A(1052) 
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TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 


SEQ 0045 


1$: 


LTCRT: 


46 pala 


7 SET TEST NUMBER _IN APT MAIL BOX 
INITIALIZE REGISTER BEFORE TESTING 
[LOAD TRANSMITTER 
:WAIT FOR RECEIVER DONE 


;READ RECEIVE BUFFER 
CHECK FOR RECEIVE DONE 1 
:BR, IF CLEAR TO NEXT TES 


READING RBUF DID NOT CLEAR RCVR DONE 


© 8 ie Ae Me Re Te He Re i i RT EER REE REE RE EERE ER ERK Ee 


S*TEST 27 


S127: 


99$: 


1$: 


2s: 


he 


MOV 


TEST ABILITY TO ACCESS LKS 


© 8 We Re Hee te ie ee te TT TT RRR EEE KERR KEKE EEE 


#27, STESIN 


#BIT2,a#$DEVM 
99$ 
UNI QUE 


arg ,R3 
#1$, 044 
@aLKS 

2s 


(SP)+, (SP) + 
61 


R3,a44 


3;SET TEST NUMBER IN APT MAIL BOX 

3DO THESE TESTS FOR THIS oyreenes 

iF YES CONTINUE WITH TEST 

; IF NO GO TO START OF NEXT SET OF TESTS. 


SAVE TIMEOUT VECTOR 

:SET UP TIMEOUT VECTOR 

SACCESS LKS 

[NO TIMEOUT ~ BR TO END OF TEST 


RESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS LKS 


RESTORE TIMEOUT VECTOR 


© Bee He He I TT IRR EEE KEE EERE EERE KEE EERE REE EEE 


TSTEST 30 


15130: 


18: 


et: 


SCOPE 


TEST THAT BIT6 OF LKS CAN BE SET & RESET 


© Se Ae ee HH TT TTR REE RIKER EEK EKER ERE EEE REE KKH 


#30,$TESTN 
#B1T6,@LKS 
ARTCVT,R3 
#1$,aRTCVT 
#B1T6,@LKS 
e$ 
62 
2$ 
(SP)+,(SP)+ 
63 


#B1T6,aLKS 
games 


64 


ieSET TEST NUMBER IN APT MAIL BOX 
MAKE SURE BIT UNDER TEST IS INITIALIZED BEFORE TESTING 
TSAVE LINE CLOCK VECTOR 
;SET UP INTERRUPT VECTOR FOR ERROR REPORT - 
SET PSW TO PRIORITY 7 


;TEST BIT6 OF LKS 
;BIT6 OF LKS NOT CLEAR AFTER RESET 


RESTORE SP AFTER INTERRUPT 
zLKS INTERRUPT WITH PRIORITY=7 
SET BIT6 OF LKS 


TEST BIT6 OF LKS 
:BR IF SET 
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CJKDFA.P11 19=MAR=81 14:27 130 TEST THAT BIT6 OF LKS CAN BE SET & RESET SEQ 0046 
sco ; CANNOT SET BIT6 OF LKS 
| — 2269--006324 «042777 000100 174456 3$: BIC ABIT6,aLKS CLEAR BIT6 OF LKS 

2270 006332 032777 000100 174450 BIT #B1T6,@LKS TEST BIT6 OF LK 
2271 006340 001401 BEQ 4$ 
2272 006342 104065 ERROR 65 
2273 CANNOT CLEAR BIT6 OF LKS 
2274 006344 032737 000001 001120 48: BIT #1, @ASENV SARE WE RUNNING UNDER APT 
2275 006352 001403 BEQ 70$ ;1F NO THEN DO Meu 
2276 006354 005737 001106 TST @ASPASS :1S THIS FIRST PASS 
2277 006360 001011 BNE 5$ 7 IF NO THEN SKIP TO END OF TEST 
2278 006362 70$: 
2279 006362 052777 000100 174420 BIS #BIT6,aLKS SET BIT6 OF LKS 
2280 006370 000005 RESET ;CLEAR BIT6 OF ay WITH RESET 
2281 006372 032777 000100 174410 BIT #BIT6,aLKS ;TEST BIT6 OF 
seas 006400 001401 BEQ 5$ BR IF CLEAR 
2284 006402 104066 ERROR 66 
2285 CANNOT CLEAR BIT6 OF LKS WITH RESET 
sop 606404 010377 174422 5$: MOV R3,a@RTCVT ;RESTORE LINE CLOCK VECTOR 
2288 
2289 
2290 
2291 SII IOI III IOI III I III IIIT OTITIS TIAA IISA IAS ASS SASS 
2292 TATEST 31 TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 
2293 2 III OIRO IIIT IIIT IIIT OT OTTO AI IA AASASSASASSISSNSASASACSA'CSOS. 
2294 006410 000004 1§131: SCOPE 
2295 006412 012737 000031 001104 MOV #31, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2296 006420 032737 000001 001120 BIT #1, OASENV sARE WE RUNNING UNDER APT 
2297 006426 001403 BEQ 70$ ;1F NO THEN DO eee 
2298 006430 005737 001106 TST aF4$PASS 31S THIS FIRST PASS 
2299 006434 001033 BNE TST32 :IF NO THEN SKIP TO NEXT TEST 
2300 006436 70$: 
2301 006436 000005 RESET ;CLEAR EVERYTHING & SET BIT7 OF LKS 
2302 006440 105777 174344 1$: TSTB @LKS ;TEST FOR BIT? OF LKS 
Sor 006444 100401 BM1 2$ 7BR IF SET 
Sara 006446 104067 ERROR 67 ;BIT7 OF LKS DID NOT SET WITH RESET 
2307 006450 042777 000200 174332 2$: BIC ABIT7,ALKS CLEAR BIT7 OF LKS 
2308 006456 032777 000200 174324 BIT #B1T7,@LKS :TEST BIT? OF LKS 
23 006464 001410 BEQ 3$ 
2310 006466 042777 000200 174314 BIC ABIT7,aLKS ;TRY ONE MORE TIME BECAUSE THE CLO 
2311 006474 032777 000200 174306 BIT | #BIT7,@LKS > MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR 
5316 006502 001401 BEQ 3$ 
Sale 006504 104070 ERROR 70 :CAN NOT CLEAR BIT7 OF LKS 
2316 006506 005000 3$: CLR RO :CLEAR TIMER 
2317 006510 105777 174274 CONT: TSTB aLkS TEST FOR BIT? OF LKS 
2318 606514 100403 BMI TST32 'BR, IF SET 
2319 006516 005200 INC RO : INCREMENT TIMER 
Ses 006520 001373 BNE CONT SCONTINUE UNTIL TIME EXPIRES 
2322 006522 104071 ERROR 71 ;BIT7 OF LKS DOES NOT SET 
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012737 


012700 
012703 


012701 


062701 
000752 


000032 
000001 
001106 
000340 
002770 
002770 
000011 
000100 
000100 


003010 


001020 


000000 


000002 


177776 


000000 


001024 
001026 


I 
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131 TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 
UNIQUE: 
TREE RRR KEE ERREREEEEERE EEE 
*STEST 32 UNIQUE INTERNAL ADDRESS TEST 
HHT TTI RRR REE EKER 
18132: SCOPE 
MOV #32, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
BIT #1, a&#SENV TARE WE RUNNING UNDER APT 
BEQ 70% ‘IF NO THEN DO TEST 
TST aASPASS “1S THIS FIRST PASS 
“i BNE TST33 ‘IF NO THEN SKIP TO NEXT TEST 
MOV #340,PS ;WE WILL BE PLAYING WITH BIT6 
‘SO LOCK OUT EXTRAINEOUS INTERRUPTS 
MOV ARCSR,RO ‘GET LOCATION OF FIRST REGISTER ADDRESS 
1$: MOV ARCSR_R3 ‘MAKE R3 POINT TO LOCATION OF FIRST 
SREGISTER ADDRESS 
MOV #11,R1 ‘SET LOOP COUNTER TO CLEAR ALL REG. 
2$: CLR a(R3)+ ‘CLEAR A REGISTER 
SOB R1,2$ ‘LOOP UNTIL ALL REGISTERS CLEARED 
MOV #BiT6,a(RO) ‘SET TEST BIT IN DEVICE REGISTERS 
MOV ARCSR,R1 ‘GET LOCATION OF FIRST REGISTER ADDRESS 
MOV #11,R2 ‘SET UP TEST LOOP COUNTER 
3$: BIT WBIT6,a(R1)+  :1S TEST BIT SET IN THIS REGISTER 
BNE 5$ ‘IF YES GO SEE IF THERE IS AN ERROR 
4$: SOB R2,3$ ‘LOOP UNTIL ALL REGISTER CHECKED 
CMP RO.ALKS SARE WE DONE TESTING 
BEQ 7$ ‘IF YES GO TO NEXT TEST 
CLR a(RO) + :CLEAR, REGISTER JUST TESTED AND POINT 
BR 1$ *CONTINUE TESTING 
5$: CMP (RO) ,-(R1) ‘DID WE COMPARE THE REGISTER TO ITSELF? 
BEQ 6$ ‘IF YES GET OVER ERROR CALL 
MOV (RO), $GDADR ‘IF NO SET UP ERROR INF ORMAT ION 
MOV (R1) . $BNADR 
MOV a(RO) , $GDDAT 
MOV a(R1) , $BDDAT 
ERROR 72 :WRITE TO 1 INTERNAL ADDRESS MODIFIED 
‘ANOTHER SO ADDRESS NOT UNIQUE 
6$: ADD #2,R1 ‘RESTORE POINTER 
m BR 4$ ‘GET BACK IN TEST LOOP 


SEQ 0047 
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, 
| 
i ¢ 
| CJKDFA.P11 19=MAR=81 14:27 132 UNIQUE INTERNAL ADDRESS TEST SEQ 0048 
| 006700 SLUTIT: 
RRR ERE EEE REE EERE EEEE 
TSTEST 33 TEST THAT SLU1 XMIT INTERRUPTS ONLY WHEN ENABLED 
RRR REE KEKE REE REEEEEEEEKEEEREREEKEEKEEEEEE 
006700 000004 1§133: SCOPE 
006702 012737 000033 001104 MOV #33, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
006710 032737 000001 001120 BIT #1, aASENV :]F NOT UNDER APT 
006716 001405 BEQ 70$ : THEN RUN THIS SERIES OF TESTS 
006720 005737 001106 TST aASPASS : ELSE IF pfJast ASS 
006724 001402 BEQ 70$ : THEN RUN THESE TESTS 
006726 000137 010600 a JMP SLU2IT ; ELSE DO NOT RUN THESE TESTS 
006732 032737 000001 001156 BIT #BITO,a#SDEVM  ;DO THESE TESTS FOR THIS DEVICE? 
006740 001002 BNE 99$ *F YES CONTINUE WITH TESTS 
906742 000137 010690 ae JMP SLU2IT ‘IF NO GO TO START OF NEXT SET OF TESTS. 
006746 000005 RESET CLEAR THE WORLD 
006750 042777 000100 174026 BIC #BIT6,aCTCSR ‘CLEAR TRANSMIT INTERRUPT ENABLE 
006756 017703 174044 MOV aCTVECT,R3 SSAVE XMIT VECTOR 
006762 012777 007006 174036 MOV #2$,aCTVECT ‘POINT XMIT VECTOR TO ERROR REPORT 
006770 105777 174010 1$: TSTB = acTCSR ‘WAIT FOR DONE 
006774 100375 BPL 1$ 
006776 004737 015056 JSR PC,WRPSW :SET PSW TO PRIORITY 3 
007002 000140 .WORD 140 
007004 000402 BR 3$ 
007006 022626 2$: CMP (SP) +, (SP)+ :RESTORE SP AFTER INTERRUPT 
007010 104074 ERROR 74 
:XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
007012 012777 007032 174006 3$: MOV #6$,aCTVECT ‘SET XMIT VECTOR TO END OF TEST 
007020 052777 000100 173756 BIS #B1T6,aCTCSR ‘ENABLE INTERRUPTS 
007626 000240 NOP 
007030 104075 ERROR 75 :XMIT DID NOT INTERRUPT 
007032 042777 000100 173744 4$: BIC #B1T6,aCTCSR :DISABLE INTERRUPTS 
007040 022626 CMP (SP) +, (SP) + SRESTORE SP AFTER INTERRUPT 
007042 010377 173760 MOV R3,aCTVECT ‘RESTORE XMIT VECTOR 
MH TIKI IIIT II TK IKKE EERE 
*STEST 34 TEST SLU1 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
© He He IIT RRR EEE EEEEEEKKKEKEKKKE 
007046 000004 18134: SCOPE 
007050 012737 000034 001104 MOV #34, $TESTN SET TEST NUMBER IN APT MAIL BOX 
007056 042777 000100 173720 BIC #BIT6,aCTCSR “BISABLE INTERRUPTS” 
004737 015056 JSR PC ,WRPSW :SET PSW TO PRIORITY 7 
007070 000340 .WORD 340 
007072 017703 173730 MOV aCTVECT,R3 :SAVE XMIT VECTOR 
007076 012777 007124 173722 MOV #2$,aCTVECT :POINT XMIT VECTOR TO ERROR REPORT 
007104 105777 173674 1$: TSTB = aCTCSR WAIT FOR DONE 
007110 100375 BPL 1$ 
007112 052777 000100 173664 BIS #B1T6,aCTCSR : ENABLE INTERRUPT 
007120 000240 NOP 


007122 000402 BR 3$ CONTINUE TEST 
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CJKDFA.P11 19=MAR=81 14:27 134 TEST SLU1 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED SEQ 0049 - 
2423 
2424 007124 022626 2$: CMP (SP) +, (SP)+ ;RESTORE SP AFTER INTERRUPT 
2425 007126 104076 ERROR 76 
2426 :XMIT INTERRUPTS AT PRIORITY=7 
3427 007130 042777 000100 173646 3$: BIC WBIT6,aCTCSR :CLEAR INTERRUPT ENABLE 
3428 007136 012777 007156 173662 MOV #4$,aCTVECT “POINT XMIT VECTOR TO ERROR REPORT 
2429 007144 004737 015056 JSR PC ,WRPSW ‘SET PSW TO PRIORITY 3 
2430 007150 000140 .WORD 140 
2431 007152 000240 NOP 
h3e 007154 000402 BR 5$ :BR TO END OF TEST=NO INTERRUPT 
2434 007156 022626 4$: CMP (SP) +, (SP)+ :RESTORE SP AFTER INTERRUPT 
2435 007160 104077 ERROR 77 
2436 :XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
437 007162 010377 173640 5$: MOV R3,aCTVECT “RESTORE XMIT VECTOR 
2439 
2440 © I IT KERR EERE REE EERE KEE EER EEK 
2441 TSTEST 35 TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS 
2442 HRI TIRE EERE REE REAR EKER ERE KEKE 
2443 007166 000004 75135: SCOPE 
2444 007170 012737 000035 001104 MOV #35, $TESIN SET TEST NUMBER IN APT MAIL BOX 
2445 007176 042777 000100 173600 BIC #B1T6,aCTCSR SCLEAR INTERRUPT | ENABLE 
2446 007204 017703 173616 MOV aCTVECT,R3 ‘SAVE XMIT VECTOR 
2447 007210 017704 173614 MOV aCTPSW,R4 ‘SAVE XMIT PSW VECTOR 
3448 007214 012777 007256 173604 MOV #2$, aCTVECT ‘SET UP XMIT VECTOR 
3449 007222 012777 000340 173600 MOV #340, aCTPSW “SET PIO 7 AFTER INTERRUPT 
2450 007230 004737 015056 JSR PC ,WRPSW ‘SET PSW TO PRIORITY 3 
2451 007234 000140 .WORD 140 
2452 007236 105777 173542 1$: TSTB = @CTCSR :WAIT FOR DONE 
2453 007242 100375 BPL 1$ 
2454 007244 052777 000100 173532 BIS WBIT6,aCTCSR  ; ENABLE INTERRUPTS 
3499 007252 000240 NOP 
2457 007254 104100 ERROR 100 
2458 :XMIT INTERRUPT DID NOT OCCUR 
2459 007256 022626 2$: CMP (SP) +, (SP) + “RESTORE SP AFTER INTERRUPT 
3460 007260 012777 007306 173540 MOV #4$,aCTVECT ‘POINT XMIT VECTOR TO ERROR 
2461 007266 004737 015056 JSR PC, WRPSW ;SET PSW TO PRIORITY 3 
2462 007272 000140 “WORD 140 
2463 007274 000240 NOP :GIVE TIME FOR ANY INTERRUPTS 
3464 007276 042777 000100 173500 BIC #BIT6.aCTCSR  :DISABLE INTERRUPTS 
465 007304 000402 BR 5$ ‘BR TO END OF TEST 
2467 007306 022626 4$: CMP (SP) +, (SP)+ sRESTORE SP AFTER INTERRUPT 
2468 007310 104101 ERROR 101 
2469 :XMIT RE-INTERRUPTED 
2470 007312 010377 173510 5$: MOV R3,aCTVECT *RESTORE XMIT VECTOR 
47k 007316 010477 173506 MOV R4.acTPSW “RESTORE XMIT PSW VECTOR 
2473 EERE EE EEE EERE EEE EEE EERE RARE ERE EE ES 
2474 tSTEST 36 TEST THAT SLU1 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
2475 © RRR EERE KERR EEE REAR ERE EEE 
2476 007322 000004 75136: SCOPE 
5477 007324 012737 000036 001104 MOV #36, $TESTN :SET TEST NUMBER IN APT MAIL BOX 


2478 007332 042777 000100 173444 BIC #B1T6,aCTCSR “DISABLE INTERRUPTS 





- 
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CJKDFA.P11 19=MAR=81 14:27 136 TEST THAT SLU1 XMIT INTERRUPT CLEARS WITH LOADING TBUF SEQ 0050 
2479 007340 737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 7 
2480 007344 000340 .WORD 340 
2481 007346 017703 173454 MOV ACTVECT,R3 SAVE _XMIT_ VECTOR 
2482 007352 012777 007424 173446 MOV #2$,aCTVECT [POINT XMIT VECTOR TO ERROR 
2483 7360 052777 000100 173416 BIS #B1T6,aCTCSR 7 ENABLE - ERRUPTS 
2484 007 005077 173414 CLR ac TBUF [LOAD TBUF 
2485 007372 105777 173406 1$: TSTB acTCSR ;WAIT FOR DONE (INTERRUPT) 
2486 007376 100375 BPL 
2487 007400 005077 173402 CLR ac TBUF sFILL SECOND BUFFER TO RESET INT. 
2488 007404 004737 015056 JSR PC ,WRPSW SALLOW INTERRUPTS 
2489 007410 000140 RD 140 
2490 007412 00024 NOP :GIVE TIME FOR ANY INTERRUPTS 
2491 007414 042777 000100 173362 BIC #B1T6,aCTCSR ;DISABLE INTERRUPTS 
aes 007422 000402 BR 3$ ;BR TO END OF TEST 
2494 007424 022626 2$: CMP (SP) +, (SP)+ RESTORE SP AFTER INTERRUPT 
2495 007426 104102 ERROR 102 
2496 LOADING TBUF DID NOT CLEAR INTERRUPT. 
ioe 007430 010377 1733572 3$: MOV R3,aCTVECT RESTORE XMIT VECTOR 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
506 © Re TTI ITT TERE ERE EERE KKK EERE KEKEREREEE 
2507 TRTEST 37 TEST THAT SLU1 RCVR INTERRUPTS ONLY WHEN ENABLED 
2508 © RRR EEE REE EERE EEE EKER ERE EER 
2509 007434 000004 18137: SCOPE 
2510 007436 012737 000037 001104 Vv #37, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2511 007444 000005 RESET MAKE SURE NO INTERRUPTS ARE PENDING FROM 
2512 SANOTHER TEST 
2513 007446 042777 000100 173330 BIC #B1T6,aCTCSR DISABLE TRANSMIT INTERRUPTS 
2514 007454 042777 000100 173316 BIC #B1T6,aCRCSR [DISABLE RECEIVER INTERRUPTS 
2515 007462 052777 000004 173314 BIS #B1T2,aCTCSR [SET MAINTENANCE WRAP 
2516 007470 017703 173326 MOV acRVECT RS 7SAVE RECEIVE VECTOR 
2517 007474 012777 007532 173320 MOV #2$,aCRVECT [POINT RCV VECTOR i. ERROR REPORT 
2518 007502 004737 015056 JSR ,WRPSW 7SET PSW TO PRIORITY 3 
2519 75 00014 . 140 
2520 007510 005077 173272 CLR ac TBUF SEND A CHARACTER 
2521 007514 105777 173260 1$: TSTB acRCSR [WAIT FOR RECEIVER DONE 
2522 007520 100375 BPL 1$ 
2523 007522 042777 000004 173254 BIC #B1T2,aCTCSR CLEAR MAINTENANCE BIT 
$25¢ 0075 000405 BR 3$ CONTINUE TEST 
2526 007532 042777 000004 173244 2$: BIC #BIT2,aCTCSR CLEAR MAINTENANCE BIT 
2527 007540 022626 CMP (SP)+,(SP)+ TRESTORE SP AFTER INTERRUPT 
2528 007542 104103 ERROR 103 
5350 RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
2531 007544 012777 007572 173250 3$: MOV #4$,aCRVECT POINT RCV VECTOR Y END OF TEST 
2532 007552 052777 000100 173220 BIS #B1T6,aCRCSR ENABLE RCV INTERRUPTS 
2533 007560 000240 NOP [GIVE ANY INTERRUPTS TIME 
2534 007562 042777 000004 173214 BIC #B1T2,aCTCSR [CLEAR MAINTENANCE BIT 
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CJKDFA.P11 19=MAR=81 14:27 137 TEST THAT SLU1 RCVR INTERRUPTS ONLY WHEN ENABLED SEQ 0051 
2535 007570 104104 ERROR 104 
5238 ;RCVR DID NOT INTERRUPT 
2538 007572 042777 000100 173200 4%: BIC #B1T6,aCRCSR ;DISABLE INTERRUPTS 
2539 7 042777 000004 173176 BIC #B1T2,aCTCSR CLEAR MAINTENANCE BIT 
2540 007606 022626 CMP (SP)+,(SP)+ TRESTORE SP AFTER INTERRUPT 
$20) 007610 010377 173206 MOV R3,@CRVECT ;RESTORE RECEIVE VECTOR 
543 
$207 SII III OI IORI III ICICI III ITI TIA ATA AS ASAI SSIASSASASASAST 
2545 TRTEST 40 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
2546 BRIO IIIS IOI III IOI IOI IOI IOI TOT TAT AAS IAS ASSIS AIASSAST 
2547 007614 +§140: SCOPE 
2548 007616 012737 000040 001104 MOV #40, $TESTN 3zSET TEST NUMBER IN APT MAIL BOX 
2549 007624 05 RESET ;CLEAR EVERYTHING 
2550 007626 004737 015056 JSR PC,WRPSW [SET PSW TO PRIORITY 7 
2551 007632 340 -WORD 340 
2552 007634 017703 173162 MOV @CRVECT RS # SAVE RECEIVE VECTOR 
2553 007640 012777 007700 173154 MOV #2$,aCRVECT ;POINT RCVR VECTOR TO ERROR REPORT 
2554 007646 052777 000004 173130 BIS #B1T2,aCTCSR 7SET MAINTENANCE WRAP 
2555 007654 005077 173126 CLR ac TBUF :SEND A CHARACTER 
2556 007 105777 173114 1$: TSTB acRCSR ;WAIT FOR RECEIVER DONE 
2557 007664 100375 BPL 1$ 
2558 7 052777 000100 173104 BIS #B1T6,aCRCSR ENABLE INTERRUPTS 
2559 007674 000240 NOP :GIVE TIME FOR INTERRUPT 
2560 00767: 405 BR 3$ ;CONTINUE TEST 
2561 007700 042777 000004 173076 2$: BIC #BIT2,aCTCSR [CLEAR MAINTENANCE BIT 
2562 007706 022626 CMP (SP)+,(SP)+ ZRESTORE SP AFTER INTERRUPT 
2563 007710 104105 ERROR 105 
53es zRCVR INTERRUPTS AT PRIORITY 7 
2566 007712 042777 000100 173060 3$: BIC #B1T6,aCRCSR :CLEAR INTERRUPT ENABLE 
2567 007720 012777 007746 173074 MOV #4$,aCRVECT [POINT RCVR VECTOR TO_ERROR REPORT 
2568 007726 004737 015056 JSR PC ,WRPSW [SET PSW TO PRIORITY 3 
2569 007732 00014 -WORD 140 
2570 007734 000240 NOP :GIVE TIME FOR ANY INTERRUPT 
2571 77 042777 000004 173040 BIC #B1T2,aCTCSR :CLEAR MAINTENANCE BIT 
$258 007744 000405 BR 5$ [BR TO END OF TEST, IF NO INTERRUPT 
2574 007746 042777 000004 173030 4$: BIC #BIT2,aCTCSR CLEAR MAINTENANCE BIT 
2575 007754 022626 CMP (SP) +, (SP)+ TRESTORE SP AFTER INTERRUPT 
2576 007756 104106 ERROR 106 
2577 ;RCVR INTERRUPT REQUEST PASSED WITH BITé CLEAR 
$278 007760 010377 173036 5$: MOV R3,@CRVECT SRESTORE RECEIVE VECTOR 
2580 
2581 SIO III IUIOIIUIOI IODIDE IOI I IOI IOI OIRO TOIT TOIT TIAA IIASA IIASA ISAS ASA 
2582 SSTEST 41 TEST SLU1 RECEIVER FOR DOUBLE INTERRUPTS 
2583 CII III IOISIOISISIOIOIIIAIOIDIDIAIOISIOISIIOIOIOIIOIOIOIOI IOI II TTT TTT IASI ISAT 
2584 007764 0004 18141: SCOPE 
2585 007766 012737 000041 001104 MOV 441, $TESTN T TEST NUMBER IN APT MAIL BOX 
2586 007774 000005 RESET CLEAR EVERYTHING 
2587 007776 017703 173020 MOV @CRVECT,R3 ;SAVE RECEIVE VECTOR 
2588 010002 017704 173016 MOV @CRPSW,R4 SAVE RECEIVE PSW VECTOR 
2589 010006 012777 010070 173006 MOV #2$,acRVECT POINT RCV VECTOR _TO CONTINUE .EST 
2590 010014 012777 000340 173002 MOV #340, aCRPSW SET PRIORITY TO 7 AFTER INTERRUPT 






010244 


010246 
010250 


010252 


012777 
37 


022626 
104110 


010377 


022626 
104111 


010377 
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015056 


000004 
172744 
172732 


000004 
000100 


172666 


000042 
015056 
172642 


000004 
172554 
015056 


000100 


172544 


172746 


172726 


172714 


172722 


172662 


001104 


172634 
172604 
172602 


172562 


172534 


= a 30A(1052) 


23: 


3$: 


4$: 
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TEST SLU1 RECEIVER FOR DOUBLE INTERRUPTS 
7SET PSwW TO PRIORITY 3 


JSR 


PC ,WRPSW 
.WORD 140 
#12, acTcsR 
SCRCSR 

1$ 


#B1T2,aCTCSR 
#B1T6,aCRCSR 


107 


(SP)+,(SP)+ 
#3$,aCRVECT 
PC ,WRPSW 


140 
#B1T6,a@CRCSR 
R4,@aCRPSW 
4$ 
(SP)+, (SP)+ 
110 


R3,@CRVECT 


SET MAINTENANCE WRAP 
[SEND A CHARACTER 
[WAIT FOR RCVR DONE 


CLEAR MAINTENANCE BIT 
TENABLE RCV_INTERRUPTS 
;GIVE SOME TIME 


;RCVR INTERRUPT DID NOT OCCUR 


RESTORE SP AFTER INTERRUPT 
[POINT RCV VECTOR TO ERROR REPORT 
SRESET PSW TO PRIORITY 3 


GIVE SOME TIME 

;CLEAR INTERRUPT ENABLE 
TRESTORE RECEIVE PSW VECTOR 
[BR TO END OF TEST 


RESTORE SP AFTER INTERRUPT 


RECEIVER RE-INTERRUPTED 
SRESTORE RECEIVE VECTOR 


© Re TI I I TIT TOT IO I IIIA EERE EEE 


TRTEST 42 


18142: 


1$: 


2$: 


3$: 


SCOPE 


TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 


© eR TT OTT TTR IK EK ERE EE REE EEE REE EEE EEE EKER EEE 


#42, $TESTN 


PC ,WRPSW 
«WORD 340 
@CRVECT.R3 
#2$, aCRVECT 
#B1T6,@CRCSR 
#BIT2,aCTCSR 
ac TBUF 
@aCRCSR 


$ 
#B1T2,aCTCSR 
@CRBUF 

PC ,WRPSW 
-WORD 140 
4B1T6,@CRCSR 
3$ 
(SP)+,(SP)+ 
111 
R3,@CRVECT 


;;SET TEST NUMBER IN APT MAIL BOX 
eee EVERYTHING 
;SET PSW PRIORITY TO 7 


SAVE RECEIVE VECTOR 

:POINT RCV VECTOR TO ERROR REPORT 
SET RCVR_INTERRUPT ENABLE 

[SET MAINTENANCE WRAP 

7SEND A CHARACTER 

[WAIT FOR DONE (INTERRUPT) 


om MAINTENANCE BIT 


AD RBUF TO CLEAR PENDING INTERRPUT 


SET PSW TO PRIORITY 3 


ie in TIME FOR ANY ERRONEOUS INTERRUPT 


NO INTERRUPT=CLEAR INT. ENABLE 


RESTORE SP AFTER INTERRUPT 


TREADING RBUF DID NOT CLEAR INTERRUPT 


RESTORE RECEIVE VECTOR 


‘SEQ 0052 






010256 


010360 
010362 
010364 
010366 


010372 


010462 


010464 
010472 
010474 
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000004 


000402 
022626 
104112 
010377 


000004 


0 
104113 


032777 
001001 
104114 
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000043 
015056 
172520 


172442 


015056 


000100 


172430 


000044 
002000 


pooese 


172346 


000004 
040000 


100000 
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001104 


172512 
172462 
172460 
172454 


172420 


001104 
170430 


172362 


2332 
2322 


—D ad 
NN 


172310 
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5 
14:27 


SEQ 0053 


© HERRERA EERE EERE EERE EEE 


TEST SLU1 THAT RESET CLEARS RECEIVE INTERRUPT 


© Re IT TIT TTT TTT RRR REE EER EKER EEE KE 


VATEST 43 
18143: 


=e 


1$: TSTB 


2$: 


3$: MOV 


#43,$TESIN 


PC,WRPSW 
.WORD 340 
ACRVECT,R3 
#2$, aCRVECT 
#B1T6,aCRCSR 
#BIT2,aCTCSR 
#377 , aC TBUF 
ges 


PC ,WRPSW 
«WORD 140 
#B1T6,aCRCSR 
3$ 


(SP) +, (SP) + 
112 


R3,@CRVECT 


;SET TEST NUMBER IN APT MAIL BOX 
S CLEAR EVERYTHING 
7SET PSW TO PRIORITY 7 


SAVE RECEIVE VECTOR 
[POINT RCV VECTOR TO ERROR REPORT 
SET RCV INTERRUPT pee: / 
#SET MAINTENANCE WRAP 
SEND AN ALL 1'S CHARACTER 
“WAIT FOR RCV DONE 


CLEAR RCV INTERRUPT & RBUF 
SET PSW TO PRIORITY 3 


zALLOW TIME FOR AN ERRONEOUS INTERRUPT 


NO INTERRUPT-CLEAR INT. ENABLE 
; CONTINUE TEST 


RESTORE SP AFTER INTERRUPT 
RESET DID NOT CLEAR RCVR INTERRUPT 


RESTORE RECEIVE VECTOR 


“Seca descend lglg icindoy lpi 


TEST SLU? THAT ‘OVERRUN & ERROR’’ BITS CAN BE SET 


HI II I IIIT TTI TOIT TTT TOTTORI ITT TOIT TITS TAT IAT EIT 


TRTEST 44 


1S144: the 


1$: CLR 


3$: BIT 


#44 ,$TESTN 

#B1T10,aSWR 
TST45 

#BIT2,aCTCSR 
#3,RO 


ac TBUF 
acTCSR 
2s 


RO 


1$ 
#BIT2,aCcTCSR 
~ hear aap 


113 


#81115, @CRBUF 
4$ 
114 


3;SET TEST NUMBER IN APT MAIL BOX 
31S THIS TEST ENABLED 

TIF DISABLED, BR TO NEXT TEST 
CLEAR EVERYTHING 

[SET MAINTENANCE WRAP 

SET CHARACTER COUNT TO SEND 3 CHAR. 
;LOAD TRANSMIT BUFFER 

[WAIT FOR TRANSMIT DONE 


;DECREMENT CHARACTER COUNT 

7BR IF ALL CHARACTERS NOT TRANSMITTED 
:CLEAR MAINTENANCE BIT 

STEST FOR ‘OR’ ERROR FLAG 

;BR, IF SET 

:‘‘OR'’ ERROR FLAG DID NOT SET 


i TEST ‘‘ERROR'' FLAG 
7BR, IF SET 


y"'ERROR'' FLAG DID NOT SET WITH “OR'’ FLAG 


eR NOLES Tea iso pncn sae 


. 
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CJKDFA.P11  19=MAR=81 TEST SLU1 THAT ‘OVERRUN & ERROR’ BITS CAN BE SET SEQ 0054 

010476 4$: 
© Re He TI TIT TT TTT TTT TTT EERE EEE ERK 
TRTEST 45 TEST SLU1 DATA PATH USING MAINTENANCE WRAP 
“anys alata that eae teal 

010476 000004 18145: SCOPE 

010500 012737 000045 001104 MOV #45 .STESTN ::SET TEST NUMBER IN APT MAIL BOX 

010506 000005 7 RESET [CLEAR EVERYTHING 

010510 005001 CLR R1 =CLEAR REGISTER FOR TEST DATA 

010512 052777 000004 172264 BIS #B1T2,aCTCSR SET MAINTENANCE WRAP 

010520 105201 1$: INCB. RT ‘INCREMENT THE TEST DATA 

010522 010177 172260 V R1,@CTBUF - [MIT A CHARACTER 

010526 105777 172246 2$: TSTB = ACRCSR “WAIT FOR RECEIVER DONE 

010532 100375 BPL 2$ 

010534 017702 172242 MOV @CRBUF .R2 :GET RECEIVED CHARACTER 

010540 020102 CMP R1,R2 “COMPARE DATA 

010542 001003 BNE 3$ BR, IF NON-COMPARE _- 

010544 105701 TSTB- RI “TEST XMIT DATA FOR ZERO 

610546 001411 BEQ 4$ :BR, IF FINISHED 

010550 000763 BR 1$ [CONTINUE IF 

010552 010137 001024 3$: MOV R} . SGDDAT STORE THE EXPECTED DATA 

010556 010237 001026 MOV R2. $BDD [STORE RECEIVED DATA 

010562 042777 000004 172214 BIC #BIT2, BCTCSR —ZCLEAR MAINTENANCE BIT 

010570 104115 ERROR 115 DATA COMPARE DATA 

010572 042777 000004 172204 4$: BIC #BIT2,a@CTCSR  ;CLEAR MAINTENANCE BIT 








a 

dD 5 
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| CJKDFA.P11 19=MAR=81 14:27 145 TEST SLU1 DATA PATH USING MAINTENANCE WRAP SEQ 0055 
ort 010600 SLU2IT: 
2734 SII III IOIISISIICISIS ISIS IOII III IOIIOIOIIOIIIIIOISIIOICIOIOIIDIOIOIOIOIIUIOIOI OT It 
2735 TRTEST 46 TEST THAT SLU2 XMIT INTERRUPTS ONLY WHEN ENABLED 
2736 SI IOIGO IOI IOIOICIIICIOIOIIOIOISIIIOIOIIUIOIOIOIOIOIOIIOIIISISIDISITISISIOIIITIOTOIIOSTI TOTO TOTO 
2737 010600 000004 18146: SCOPE 
2738 010602 012737 000046 001104 MOV #46, $TESIN SET TEST NUMBER IN APT MAIL BOX 
2739 010610 032737 000002 001156 BIT #B1T1,a#$DEVM :bo THESE TESTS FOR THIS DEVICE? 
2740 010616 001002 BNE 99$ :F YES CONTINUE WITH TESTS 
2741 010620 000137 012544 JMP LTCIT ;I1F NO GO TO START OF NEXT SET OF TESTS. 
2742 010624 99$: 
2743 010624 042777 090100 172142 BIC #B1T6,aTCSR CLEAR TRANSMIT INTERRUPT ENABLE 
2744 010632 017703 172160 MOV aTVECT,RS :SAVE XMIT VECTOR 
2745 010636 012777 010662 172152 MOV #2$,aTVECT [POINT XMIT VECTOR TO ERROR REPORT 
2746 010644 105777 172124 1$: TSTB aTCSR [WAIT FOR DONE 
2747 010650 100375 BPL 1$ 
2748 010652 004737 015056 JSR PC ,WRPSW 3SET PSW TO PRIORITY 3 
2749 010656 000140 WORD 140 
stay 010660 000402 BR 3$ 
2752 010662 022626 2$: MP (SP)+,(SP)+ RESTORE SP AFTER INTERRUPT 
2753 010664 104116 ERROR 116 
2754 ;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
2755 010666 012777 010706 172122 3%: MOV #4$,aTVECT SET XMIT VECTOR TO END OF TEST 
2756 010674 052777 000100 172072 BIS #B1T6,aTCSR SENABLE INTERRUPTS 
4034 010702 000240 , NOP 
Soop 010704 104117 ERROR 117 3XMIT DID NOT INTERRUPT 
2761 010706 042777 000100 .172060 4$: BIC #B1T6,aTCSR DISABLE INTERRUPTS 
2762 010714 022626 CMP (SP)+, (SP)+ SRESTORE SP AFTER INTERRUPT 
sre? 010716 010377 172074 MOV R3,aTVECT SRESTORE XMIT VECTOR 
2765 
2766 6 EIU IIIS II IIUISIDIS III IOIIOISISISIIIII III TOTO 
2767 S*TEST 47 TEST SiU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
2768 RII IO IOI IOI IDIOIIISIIISISIOIIIOIOIIOIOIDISISITIGITIOIITIUITIOIIIIOIOIICOI OT TOI TOT 
2769 010722 000004 18147: SCOPE 
2770 010724 012737 000047 001104 MOV #47 ,STESIN 32;SET TEST NUMBER_IN APT MAIL BOX 
2771 010732 042777 000100 172034 BIC #B1T6,aTCSR ;DISABLE INTERRUPTS 
2772 010740 004737 015056 JSR PC ,WRPSW SET PSW TO PRIORITY 7 
2773 010744 000340 -WORD 340 
2774 010746 917703 172044 MOV aTVECT R35 SAVE XMIT VECTOR 
2775 010752 012777 011000 172036 MOV #2$,aTVECT [POINT XMIT VECTOR TO ERROR REPORT 
2776 010760 105777 172010 1$: TSTB SR SWAIT FOR DONE 
2777 010764 100375 BPL 1$ 
2778 010766 052777 000100 172000 BIS #B1T6,aTCSR ENABLE INTERRUPT 
2779 010774 000240 NOP 
sony 010776 000402 BR 3$ CONTINUE TEST 
2782 011000 022626 2$: MP (SP)+, (SP)+ RESTORE SP AFTER INTERRUPT 
2783 011002 104120 ERROR 120 
2784 , XMIT_ INTERRUPTS AT PRIORI TY=7 
2785 011004 042777 000100 171762 3%: BIC #B1T6,aTCSR CLEAR INTERRUPT ENABLE 
2786 011012 012777 011032 171776 MOV #4$,aTVECT SPOINT XMIT VECTOR TO ERROR REPORT 
2787 011020 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 3 
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CUKDFA.P11 19=MAR=81 14:27 47 TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED SEQ 0056 


011024 000140 «WORD 140 

011026 000240 NOP 

q 011030 000402 BR 5$ ;BR TO END OF TEST=NO INTERRUPT 
011032 022626 4$: CMP ine RESTORE SP AFTER INTERRUPT 


011034 104121 ERROR , 
;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
011036 010377 171754 5$: MOV R3,@TVECT RESTORE XMIT VECTOR 


WUT TCT CC CTCCLACCCCCA CSA ASS CeCe eee ESTES SESS EES R ET A SARA R AOE 


SSTEST 50 TEST SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 
SI IOI IOI IGIOIOI III III III I IIDC III III III ICICI 
011042 000004 1150: SCOPE 
011044 012737 000050 001104 MOV #50,$TESTN ;SET TEST NUMBER IN 1% MAIL BOX 
011052 042777 000100 171714 BIC #B1T6,aTCSR “CLEAR INTERRUPT ENABLE 
011060 017703 171732 MOV aTVECT,R3 SAVE XMIT VECTOR 
011064 017704 171730 MOV aTPSW,R4 + SAVE XMIT PSW VECTOR 
011070 012777 011132 171720 MOV #2$,aTVECT SET UP XMIT VECTOR 
011076 012777 000340 171714 MOV #340,aTPSW SET PIO 7 AFTER INTERRUPT 
011104 004737 015056 JSR PC,WRPSW - SET PSW TO PRIORITY 3 
011110 000140 -WORD 140 
011112 105777 171656 1$: TSTB aTCSR ;WAIT FOR DONE 
011116 100375 BPL 1$ 
011120 052777 000100 171646 BIS #B1T6,aTCSR ;ENABLE INTERRUPTS 
011126 000240 NOP 
011130 104122 : ERROR 122 
;XMIT INTERRUPT DID NOT OCCUR 
2819 011132 022626 2s: CMP (SP)+, (SP) + RESTORE SP AFTER INTERRUPT 
2820 011134 012777 011162 171654 MOV #4$,aTVECT :POINT XMIT VECTOR TO ERROR 
011142 004737 015056 JSR PC,WRPSW :SET PSW TO PRIORITY 3 ° 
011146 000140 . WORD 140 
011150 000240 NOP :GIVE TIME FOR ANY INTERRUPTS 
011152 042777 000100 171614 BIC #BIT6,aTCSR :DISABLE INTERRUPTS 
oe56 011160 000402 BR 5$ ;BR TO END OF TEST 
2827 011162 022626 4$: CMP (SP)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
2828 011164 104123 ERROR 123 
2829 :XMIT RE-INTERRUPTED 
2230 011166 010377 171624 5$: MOV R3,aTVECT ;RESTORE XMIT VECTOR 
oB32 011172 010477 171622 MOV R4,aTPSW ;RESTORE XMIT PSW VECTOR 
2833 oR IO IOI OI OI TO OI IIIT om on kt tk ttt 
tSTEST 51 TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
2835 0 i IU IOI IOI IO IOI IO IORI III IOI IIIT IOI io toto tt tot 
28 011176 000004 78151: SCOPE 
2837 011200 012737 000051 001104 MOV #51,$TESTN ::SET TEST NUMBER IN ot! Rare BOX 
2838 011206 032737 000001 001120 BIT #1, @A4SENV ;ARE WE RUNNING UNDER A 
2839 011214 001403 BEQ 70$ :1F NO THEN DO reee 
840 011216 005737 001106 TST aA$PASS 1S THIS FIRST PASS 
011222 001046 BNE TST52 ;I1F NO THEN SKIP TO NEXT TEST 
842 011224 70$: 
2843 011224 042777 000100 171542 BIC #BIT6,aTCSR ;DISABLE INTERRUPTS 









, 
CJKDFAO 11724 OPTIONS ys MACY11 30A(1052) 19=MAR=81 14:27 PAGE 57 
CJKDFA.P11 19=MAR=81 14:27 151 TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF SEQ 0057 


2844 011232 737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 7 
2845 011236 000340 WORD 340 
2866 011240 017703 171552 MOV ATVECT,R3 :SAVE XMIT VECTOR 
2847 011244 012777 011316 171544 MOV #2$,aTVECT :POINT XMIT VECTOR TO ERROR 
2848 011252 052777 000100 171514 BIS #8116, aTCSR TENABLE INTERRUPTS 
28649 011260 005077 171512 CLR aT BUF [LOAD TBUF 
2850 011264 105777 171504 1$: TSTB. = @TCSR tWAIT FOR DONE (INTERRUPT) 
2851 011270 100375 BPL 1$ 
2852 011272 005077 171500 CLR aTBUF :FILL SECOND BUFFER TO RESET INT. 
2853 011276 004737 015056 JSR PC ,WRPSW TALLOW INTERRUPTS 
2854 011302 000140 .WORD 140 
2855 011304 000240 NOP :GIVE TIME FOR ANY INTERRUPTS 
2856 011306 042777 000100 171460 BIC #B1T6,aTCSR [DISABLE INTERRUPTS 
2857 011314 000402 BR 3$ :BR TO END OF TEST 
2859 011316 022626 2$: CMP (SP) +, (SP)+ :RESTORE SP AFTER INTERRUPT 
860 011320 104124 ERROR 124 
2861 ;LOADING TBUF DID NOT CLEAR INTERRUPT. 
2862 011322 005001 3$: CLR R1 S INITIALIZE LOOP COUNTER 
2863 611324 005201 4$: INC R1 S INCREMENT LOOP COUNTER 
2864 011326 001376 BNE 4$ [UNTIL LOOP COUNTER EQUALS 0 
2865 011330 005777 171436 TST @RBUF [CLEAR RECEIVER BUFFER 
e866 011334 010377 171456 MOV R3,aTVECT SRESTORE XMIT VECTOR 
— 
868 
2869 
2870 
2871 © HT TI TTT TT TT IRR ERE ERR EEE RE REE REE EEE 
2872 SRTEST 52 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 
2873 Oe eRe RRR ERE REE EERE REE KEE KERR REE 
2874 011340 000004 18152: SCOPE 
5875 011342 012737 000052 001104 MOV #52, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
2876 011350 042777 000100 171416 BIC #B1T6,aTCSR ‘DISABLE TRANSMIT INTERRUPTS 
2877 011356 042777 000100 171404 BIC #B1T6,ARCSR [DISABLE RECEIVER INTERRUPTS 
2878 011364 017703 171422 MOV @RVECT,R3 TSAVE RECEIVE VECTOR 
2879 011370 012777 011420 171414 MOV #2$, aRVECT ‘POINT RCV VECTOR TO ERROR REPORT 
880 011376 004737 015056 JSR PC ,WRPSW SSET PSW TG PRIORITY 3 
2881 011402 000140 .WORD 140 
2882 011404 005077 171366 CLR aTBUF ;SEND A CHARACTER 
2883 011410 105777 171354 1$: TSTB = ARCSR [WAIT FOR RECEIVER DONE 
2884 011414 100375 BPL 1$ 
2885 011416 000402 BR 3$ : CONTINUE TEST 
2887 011420 022626 2$: CMP ($?)+,(SP)+ :RESTORE SP AFTER INTERRUPT 
2888 011422 104125 ERROR 125 
$800 :RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
5891 011424 012777 011444 171360 38: MOV #4$, aRVECT ;POINT RLV VECTOR TO END OF TEST 
2892 011432 052777 000100 171330 BIS #81T6,aRCSR TENABLE RCV INTERRUPTS 
2893 011440 000240 NOP ‘GIVE ANY INTERRUPTS TIME 
2894 011442 104126 ERROR 126 
2895 :RCVR DID NOT INTERRUPT 
5897 011444 042777 000100 171316 4$: BIC #81T6,@RCSR :DISABLE INTERRUPTS 
2898 011452 022626 CMP (SP) +. (SP) + “RESTORE SP AFTER INTERRUPT 
2899 011454 010377 171332 MOV. R3,@RVECT TRESTORE RECEIVE VECTOR 
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S 
be CJKDFA.P11 19=MAR=81 14:27 T52 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED SEQ 0058 
2900 
| 5901 
2902 ITI RRR ERK EERE EERE EERE EEE EE 
2903 TSTEST 35 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
© Re Re He I IT TTT TTT RT IT RIE RRR EERE HTK KE HEE KEE 
011460 000004 +8153: SCOPE 
011462 012737 000053 001104 MOV #53,$TESIN : SET TEST NUMBER IN APT MAIL BOX 
01147 004737 015056 JSR PC,WRPSW :SET PSW TO PRIORITY 7 
011474 000340 WORD 340 
011476 017703 171310 MOV ARVECT,R3 sSAVE RECEIVE VECTOR 
011502 012777 011534 171302 MOV #2, @RVECT *PQINT RCVR VECTOR TO ERROR REPORT 
011510 005077 171262 CLR aTBUF sSEND A CHARACTER 
011514 105777. 171250 1$: TSTB — ARCSR “WAIT FOR RECEIVER DONE 
011520 100375 BPL 1$ 
011522 052777 000100 171240 BIS #BI1T6,@RCSR ;ENABLE INTERRUPTS 
011530 000240 NOP :GIVE TIME FOR INTERRUPT 
011532 000402 BR 3$ ; CONTINUE TEST 
011534 022626 2$: CMP (SP) +, (SP) + “RESTORE SP AFTER INTERRUPT 
011536 104127 ERROR 127 
_gRCVR INTERRUPTS AT PRIORITY 7- 
011540 042777 000100 171222 38: BIC #BIT6,aRCSR :CLEAR INTERRUPT ENABLE 
011546 012777 011566 171236 MOV #4$,aRVECT ‘POINT RCVR VECTOR TO ERROR REPORT 
011554 004737 015056 JSR PC,WRPSW ;SET PSW TO PRIORITY 3 
011560 000140 “WORD 140 
011562 000240 NOP ;GIVE TIME FOR ANY INTERRUPT 
011564 000402 BR 5$ ‘BR TO END OF TEST, IF NO INTERRUPT 
011566 022626 4$: CMP (SP) +, (SP) + sRESTORE SP AFTER INTERRUPT 
011570 104130 ERROR 130 
:RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
011572 010377 171214 5$: MOV R3,@RVECT sRESTORE RECEIVE VECTOR 
rrr eC CCT CCC CCC CACCACAACACCACACACCCAS A LPP ARE RRS ESSERE SEAR RR RRS O SSS! 
TRTEST 54 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS 
CII III III IOI IOIOIIDIDIIISIOIOIOUISIIDIISIIIOOI on no iotioot 
011576 000004 15754: SCOPE 
011600 012737 000054 001104 MOV #54, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
011606 017703 171200 MOV ARVECT,R3 *SAVE RECEIVE VECTOR 
011612 017704 171176 MOV @RPSW,R4 + SAVE RECEIVE PSwW VECTOR 
011616 012777 011664 171166 MOV #2$,aRVECT ‘POINT RCV VECTOR TO CONTINUE TEST 
011624 012777 000340 171162 MOV #340, aRPSW ;SET PRIORITY TO 7 AFTER INTERRUPT 
011632 004737 015056 - JSR - PC,WRPSW SET PSW TO PRIORITY 3 
011636 000140 ; “WORD 140 
011640 005077 171132 CLR aTBUF ; SEND A CHARACTER 
011644 105777. 171120 1$: TSTB. — @RCSR “WAIT FOR RCVR DONE 
011650 100375 BPL 1$ 
011652 052777 000100 171110 BIS #B1T6,aRCSR :ENABLE RCV INTERRUPTS 
011660 000240 NOP :GIVE SOME TIME 
011662 104131 ERROR 131 


zRCVR INTERRUPT DID NOT OCCUR 


011664 022626 2$: CMP (SP) +, (SP)+ RESTORE SP AFTER INTERRUPT 
011666 012777 011720 171116 MOV #3$,aRVECT SPOINT RCV VECTOR TO ERROR REPORT 
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i 
| ¢ 
| CJKDFA.P11 19=MAR=81 14:27 154 TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS SEQ 0059 
| 011674 004737 015056 JSR PC ,WRPSW :RESET PSw TO PRIORITY 3 
011700 000140 “WORD 140 
011702 000240 NOP :GIVE SOME TIME 
011704 042777 000100° 171056 BIC #BIT6,aARCSR “CLEAR INTERRUPT ENABLE 
011712 010477 171076 MOV R4, aRPSW “RESTORE RECEIVE PSW VECTOR 
011716 000402 BR 4$ ‘BR TO END OF TEST 
011720 022626 3$: CMP (SP) +, (SP) + ;RESTORE SP AFTER INTERRUPT 
011722 104132 . ERROR 132 
:RECEIVER RE=INTERRUPTED 
011724. 010377 171062 4$: Mov’ R3,@RVECT “RESTORE RECEIVE VECTOR 
. © Re HT ITT TTT TT TTR RR E KEE EEAK EEE E 
, SeTEST 55 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
bd © Be He He ee ITT TTT TORT RRR RE RAE ER EEE EEE EH 
011730 000004 1$155: SCOPE 
011732 012737 000055 001104 MOV #55, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
011740 004737 015056 JSR PC, WRPSW “SET PSW PRIORITY TO 7 
611744 000340 .WORD 340 
011746 017703 171040 MOV ARVECT,R3 :SAVE RECEIVE VECTOR 
011752 012777 012024 171032 MOV #2$, @RVECT “POINT RCV VECTOR TO ERROR REPORT 
011760 052777. 000100 171002 BIS #BIT6,a@RCSR SSET RCVR INTERRUPT ENABLE 
011766 005077 171004 CLR @TBUF ‘SEND A CHARACTER 
011772 105777 170772 1$: TSTB — @RCSR “WAIT FOR DONE (INTERRUPT) 
011776 100375 BPL 1$ . 
012000 005777 170766 TST @RBUF :READ RBUF TO CLEAR PENDING INTERRPUT , 
012004 004737 015056 JSR PC, WRPSW “SET PSW TO PRIORITY 3 
012010 000140 : .WORD 140 
012012 000240 NOP. ;ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
013014 042777 000100 170746 BIC #B1T6,aRCSR “NO INTERRUPT=CLEAR INT. ENABLE 
012022 000402 BR 3$ 
012024 022626 2$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
012026 104133 ERROR 133 “READING RBUF DID NOT CLEAR INTERRUPT 
012030 010377 170756 3$: MOV R3,@RVECT :RESTORE RECEIVE VECTOR 
EEE EER EERE REE RRA REAR EEE EERE EERE 
TSTEST 56 TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 
oe RR E EERE E EEE AEEEEAREEERREKE KEE 
012034 000004 78156: SCOPE 
012036 012737 000056 001104 MOV #56, $TESTN :SET TEST NUMBER IN APT MAIL BOX 
012044 032737 000001 001120 BiT #1, aASENV TARE WE RUNNING UNDER APT 
012052 001403 BEQ 70$ IF NO THEN DO TEST 
012054 005737 001106 TST aa$PASS *1S THIS FIRST PASS 
012060 001037 BNE TST57 ‘IF NO THEN SKIP TO NEXT TEST 
012062 70$: 
012062 000005 RESET :CLEAR EVERYTHING 
004737 015056 JSR PC, WRPSW “SET PSW TO PRIORITY 7 
012070 000340 WORD 340 
012072 017703 170714 MoV ARVECT,R3 :SAVE RECEIVE VECTOR 
012076 012777 012150 170706 MOV #2$, @RVECT “POINT RCV VECTOR TO ERROR REPORT 


012104 052777 000100 170656 BIS #B1T6,aRCSR SET RCV INTERRUPT ENABLE 
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000377 
170644 


015056 


000100 


170632 


000057 
002000 


003 


000 
170566 
170560 


040000 


100000 


000060 
177777 
170500 


170474 
000001 


170456 


170656 


170622 


001104 
166642 


170542 


170530 
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1$: 


2$: 


3$: 
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GE 60 
TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 


#377 ,a1BUF 
@RCSR 


#B1T6,@RCSR 
3$ 


(SP)+,(SP)+ 


134 
R3,aRVECT 


PC ,WRPSW 
WORD 14 


SEND AN ALL 1°S CHARACTER 
;WAIT FOR RCV DONE 


CLEAR RCV_INTERRUPT & RBUF 
7SET PSwW TO PRIORITY 3 


ALLOW TIME FOR AN ERRONEOUS INTERRUPT 


NO INTERRUPT=CLEAR INT. ENABLE 
‘CONTINUE TEST 


RESTORE SP AFTER INTERRUPT 
TRESET DID NOT CLEAR RCV INTERRUPT 


RESTORE RECEIVE VECTOR 


}sbdoiggh->~heendplolodrcgi p= go-go dng dpogni 


TSTEST 57 


18157: 


3$: 


4$: 


SCOPE 


TEST SLU2 THAT ‘OVERRUN & ERROR’ BITS CAN BE SET 


REE REE RR ORREE RRR ERKEEEE 


#57, $TESTN 
#BI uP ,@SWR 


135 


#81715 ,@RBUF 
4$ 


136 


: 
#B1T14.aRBUF 
3$ 


SET TEST NUMBER IN APT MAIL BOX 
His THIS TEST DISABLED 
[IF NOT ENABLED, BR TO NEXT TEST 
[SET CHARACTER COUNT TO SEND 3 CHAR. 
[LOAD TRANSMIT BUFFER 
[WAIT FOR TRANSMIT DONE 


¥ 
;DECREMENT CHARACTER COUNT 
BR IF ALL CHARACTERS NOT TRANSMITTED 
TEST FOR” "‘OR'’ ERROR FLAG 


:"‘OR'’ ERROR FLAG DID NOT SET 
TEST ‘ERROR’ FLAG 
IF SET 


"'ERROR'’ FLAG DID NOT SET WITH ‘OR"' FLAG 


ERR EEE REE ERE EERE EKER 


TSTEST 60 


18160: 


1$: 


2$: 


SCOPE 
M 


TEST THAT BREAK TRANSMITS ALL ZEROES 


EKER EERE RARER RK EERE ERE EERE EERE 


#60, $TESTN 


#-1 ,aTBUF 
@RCSR 
1$ 


@RBUF 
#B1TO,aTCSR 
RO 


@aRCSR 
CONT41 
RO 


2 eSET TEST NUMBER IN APT a BOX 
; TRANSMIT ALL ONES TO RCVR 
[WAIT FOR RCVR DONE 


7 CLEAR sa EME ALL ONES IN RBUF ) 
sore ¢ BREAK 

iCLEAR A TIMER 
;WAIT FOR RCVR DONE 


BR IF DONE 
71F NOT, INCREMENT TIMER 


= 
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| CJKDFA.P11 19=MAR=81 14:27 160 TEST THAT BREAK TRANSMITS ALL ZEROES SEQ 0061 
012316 001373 BNE 2$ 7;BR IF TIME REMAINS 
3072 
3073 012330 105777 170436 CONT41: TSTB @RBUF ;CHECK RECEIVE BUFFER FOR ZERO 
3074 012334 001404 BEQ 3$ 7BR, IF ZERO 
ee 012336 042777 000001 170430 BIC #B1TO,aTCSR CLEAR BREAK BITS 
a 012344 104137 ERROR 137 ;BREAK DID NOT TRANSMIT ALL ZEROES 
Shap 012346 042777 000001 170420 38: BIC #BITO,aTCSR ;CLEAR BREAK BITS 
it! TTT ILI D 
SS TEST 61 TEST THAT ‘FR’ ERROR CAN BE SET DURING BREAK 
3084 REISE E II IE ICICI ISIS nth Rit tit 
3085 012354 000004 1S161: SCOPE 
3086 012356 012737 000061 001104 MOV #61,$TESTN SET TEST NUMBER IN APT MAIL BOX 


3087 612364 032777 002000 166446 BIT #B1T10,aSWR 1s THIS TEST DISABLED 

3088 012372 001025 BNE TST62 :BR TO NEXT TEST, IF DISABLED 

3089 012374 052777 000001 170372 BIS #B1T0,aTCSR + SEND BREAK 

3090 012402 005077 170370 CLR @TBUF ; TRANSMIT A CHARACTER TO TIME BREAK 
3091 012406 105777 170356 1$: TSTB oe [WAIT FOR RCVR DONE 


$ 
3093 012414 042777 000001 170352 BIC #B1T0,aTCSR ;CLEAR BREAK BITS 
3094 012422 032777 020000 170342 BIT #81113, aRBUF :CHECK FOR FRAMING ERROR FLAG 
3095 012430 001001 BNE 2$ BR, IF SET 


3096 | 
3097 012432 104140 ERROR 140 
35098 ;BREAK DID NOT SET FRAMING ERROR 
3099 012434 032777 100000 170330 28%: BIT #B1T15,aRBUF =; TEST ‘'ERROR' FLAG 
3100 012442 001001 BNE 3$ :BR, IF SET | 


3102 012444 104141 ERROR 141 

3103 :""ERROR'' FLAG DID NOT SET WITH ‘OR'* FLAG 

3104 012446 3$: 

3105 UT TTTTTTTTTTTT TITTLE LLL LLL dd 

3106 T*TEST 62 TEST DATA PATHS USING WRAP CABLE 

3107 CI IIIS IOI III UII IIDIIOIISIUIDIOIIOIUIOIIIUOIOIOI IO It 

012446 000004 18162: SCOPE 

012450 012737 000062 001104 MOV #62,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 

012456 032777 000200 166354 BIT #BIT7, aSwR 31S THIS TEST ENABLED 

012464 001027 BNE Te 163 R, IF NOT 

012466 005001 CLR R1 “CLEAR REGISTER FOR TEST DATA : 

; TRANSMIT A BINARY COUNT PATTERN ~ UP 

TO THE BIT POSITION INDICATED BY THE 

S CONTENTS OF LOCATION *‘$USWR** 
: R1 + INCREMENT THE TEST DATA 

012472 010177 170300 MOV R1,aTBUF :XMIT A CHARACTER 

012476 005000 CLR RO ;CLEAR A TIMER. 

012500 105777 170264 2$: TSTB @RCSR SWAIT FOR RECEIVER DONE 

012504 100403 BMI 3$ :BR IF DONE 

012506 005200 INC RO INCREMENT TIMER IF NOT 

012510 001373 BNE 2$ ;BR IF TIME REMAINS 


WIWANIWNININIWNANWNINNWNANWAN 
me ek ek kk ek ed et od ot od oe I 
Noon — @ @ RP Ae Be SS - OO 
WR SCOONAUSWMH—O O00 

So 

—_ 

N 

~~ 

“S 

o 

—s 

So 

A 

N 

So 

—s 

— 

eA 

— 

2 

> 

w 


wt | 
| 3070 012320 042777 000001 170446 BIC #BITO,aTCSR =CLEAR BREAK BITS 
3071 013336 104137 ERROR 137 :BREAK DID NOT TRANSMIT ANYTHING 













012512 
012514 


012542 
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017702 
020102 
00 


010237 
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170252 


001024 
001026 


3$: 
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TEST DATA PATHS USING WRAP C 


ERROR 


56 ;RECEIVER DONE NOT SET 

@RBUF ,R2 GET RECEIVED CHARACTER 

R1,R2 ; COMPARE DATA 

4$ ;BR, IF NON-COMPARE 

R1 [TEST XMIT DATA FOR ZERO 

TST63 BR, IF FINISHED 

1$ CONTINUE IF NOT 

R1,$GDDAT TSTORE EXPECTED DATA 

R2,$BDDAT SSTORE RECEIVED DATA 

142 DATA COMPARE ERROR WITH WRAP CABLE 
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CJKDFA.P11  19=MAR=81 14:27 162 TEST DATA PATHS USING WRAP CABLE SEQ 0063 
3138 012544 LICIT: 
3140 ERE REE EERE ERERERERREEEAEREEEREEREEEEEE HH 
3141 TRTEST 63 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 
3142 ee ERE EEE EERE EERE EEE 
3143 012544 000004 +8163: SCOPE 
3144 012546 012737 000063 001104 MOV #63,$TESTN ;SET TEST NUMBER IN APT MAIL BOX 
3145 012554 032737 000004 001156 BIT #8112, aa$DEVM ibo THESE TESTS FOR THIS DEVICE? 
3146 012562 001002 BNE 99$ [F YES CONTINUE WITH TESTS 
3147 012564 000137 013600 JMP BLAST IF NO GO TO START OF NEXT SET OF TESTS. 
3148 012570 99$: 
3149 012570 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 7 
3150 012574 000340 .WORD 340 
3151 012576 017703 170230 MOV ARTCVT.R3 ;SAVE LINE CLOCK VECTOR 
3152 012602 017704 170226 MOV ART CPSW.R4 SSAVE LINE CLOCK PSW VECTOR 
3153 012606 012777 012650 170216 MOV #2$, aRTCVT SET RTC INTERRUPT VECTOR TO ERROR REPORT 
3154 012614 012777 000340 170212 MOV #340,@RTCPSW :KEEP PRIORITY AT 7 
3155 012622 042777 000200 170160 BIC #BI1T? ,ALKS [CLEAR CLOCK DONE FLAG 
3156 012630 052777 000100 170152 BIS WB1T6aLKS [SET INTERRUPT ENABLE 
3157 012636 105777 170146 1$: TSTB = @LKS SWAIT FOR RTC DONE (INTERRUPT REQUEST) 
3158 012642 100375 BPL 1$ 
3159 012644 000240 | NOP ;GIVE TIME FOR ANY INTERRUPTS 
3160 012646 000402 BR 3$ BR, IF NO INTERRUPT OCCURS 
3162 012650 022626 2$: CMP (SP)+, (SP)+ ;RESTORE SP AFTER INTERRUPT 
5163 012652 104143 ERROR 143 [RTC INTERRUPTS AT PRIORITY 7 
3165 012654 005077 170130 3$: CLR @LKS  ;DISABLE RTC INTERRUPTS & CLEAR DONE 
3166 012660 012777 012706 170144 MOV #4$, aRTCVT :SET RTC INTERRUPT VECTOR FOR ERROR 
3167 012666 004737 015056 JSR PC,WRPSW [CHANGE PSW TO PRIORITY 5 
3168 012672 000240 .WORD 240 
3169 012674 105777 170110 ‘20$: STB a@LkS ;WAIT FOR DONE (INTERRUPT REQUEST) 
3170 012700 100375 BPL 20$ 
3171 012702 000240 NOP :GIVE TIME FOR ANY INTERRUPT 
3172 012704 000402 BR 5$ IF NO INTERRUPT = BR TO CONTINUE TEST 
3174 012706 022626 4$: CMP (SP)+, (SP)+ ;RESTORE SP AFTER INTERRUPT 
3175 012710 104144 ERROR 144 “RTC INTERRUPTS WITH INTERRUPTS DISABLED 
3177 012712 012777 012746 170112 5$: MOV #7$,ARTCVT ;POINT RTC VECTOR TO END OF TEST 
3178 012720 042777 000200 170062 BIC #B1T7,aLKS [CLEAR CLOCK DONE FLAG 
3179 012726 052777 000100 170054 BIS #BIT6.aLKS TALLOW INTERRUPTS 
3180 012734 105777 170050 6S: TSTB = @LKS “WAIT FOR RTC DONE 
3181 01274Q 100375 BPL 6$ 
5182 012742 000240 NOP :GIVE TIME FOR INTERRUPT 
3184 012744 104145 ERROR 145 :RTC INTERRUPT DID NOT OCCUR 
3186 012746 022626 7$: CMP (SP)+, (SP)+ :RESTORE SP AFTER INTERRUPT 
3187 012750 042777 000100 170032 BIC #BIT6.aLKS . [DISABLE INTERRUPTS 
3188 012756 010377 170050 MOV R3,aRTCVT SRESTORE LINE CLOCK VECTOR 
3189 012762 010477 170046 MOV RG. @RTCPSW RESTORE LINE CLOCK PSW VECTOR 
3191 
3192 
3193 LARA AAA AAA AAA AAA A AA AAA AA EEA TR RS 
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s*TEST 64 TEST RTC FOR DOUBLE INTERRUPTS 
RARER EEE EAR 
000004 +S164: SCOPE 
012737 000064 001104 MOV #64, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
032737 000001 001120 BIT #1, aASENV SARE WE RUNNING UNDER APT 
001403 BEQ 70$ :IF NO THEN DO TEST 
005737 001106 TST a#$SPASS ‘I$ THIS FIRST PASS 
001052 si BNE TST65 ‘IF NO THEN SKIP TO NEXT TEST 
017703 170012 MOV ARTCVT.R3 ;SAVE LINE CLOCK VECTOR 
017704 170010 MOV @RTCPSW,R& : SAVE LINE CLOCK PSW VECTOR 
012777 013074 170000 MOV #2$, ARTCVT T UP RTC INTERRUPT VECTOR 
012777 000340 167774 MOV #340, aRTCPSW <t SALLOW INTERRUPTS AFTER THE INTERRUPT 
004737 015056 JSR PC, WRPSW ‘SET PRIORITY TO 5 
000240 .WORD 240 
042777 000200 167734 BIC #BIT7,@LKS sCLEAR CLOCK DONE FLAG 
052777 000100 167726 BIS #BI1T6.aLKS i ENABLE CLOCK INTERRUPTS 
105777 167722 1$: TSTB = @LKS [WAIT FOR DONE 
100375 BPL 1$ 
000240 NOP :GIVE TIME FOR ANY INTERRUPT 
104146 ERROR 146 :RTC INTERRUPT DID NOT OCCUR 
022626 2$: CMP (SP)+, (SP)+ :RESTORE SP AFTER INTERRUPT 
012777 013116 167726 MOV #3$,aRTCVT ‘POINT RTC VECTOR TO ERROR REPORT 
004737 015056 JSR PC,WRPSW [SET PSW TO PRIORITY 5 
000240 .WORD 240 
000240 NOP :GIVE SOME TIME FOR AN INTERRUPT 
000402 BR 4$ ‘NO INTERRUPT = BR TO END OF TEST 
022626 3$: CMP (SP) +, (SP)+ :RESTORE SP AFTER INTERRUPT 
20 104147 ERROR 147 ‘INTERRUPT SEQUENCE DID NOT CLEAR 
‘ INTERRUPT REQUEST 
042777 000100 167660 4$: BIC #BIT6,aLKS :DISABLE CLOCK INTERRUPTS 
010377 167676 MOV R3,aRTCVT *RESTORE LINE CLOCK VECTOR 
010477 167674 MOV RG. aRTCPSW *RESTORE LINE CLOCK PSW VECTOR 
8 KEE EEE KERR KEEEEEEEEEEKEEKEEEEEEEEEEKEEEKKEEK 
TSTEST 65 TEST THAT RTC INTERRUPT CLEARS WITH RESET 
EEE EERE EREEEEEEKEEEEEEEREKEKEEKEEK 
40 000004 7$165: SCOPE 
42 012737 000065 001104 MOV #65, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
50 032737 000001 001120 BIT #1, a#$SENV : ARE WE RUNNING UNDER APT 
56 001403 BEQ 70$ ‘IF NO THEN DO TEST 
60 005737 001106 TST aA#$SPASS ‘1S THIS FIRST PASS 
64 001036 in BNE TST66 :IF NO THEN SKIP TO NEXT TEST 
66 004737 015056 JSR PC ,WRPSW :SET PRIORITY TO 7 
72 000340 .WORD 340 
74 017703 167632 MOV ARTCVT,R3 :SAVE LINE CLOCK VECTOR 
200 012777 013252 167624 MOV #2$, aRTCVT ‘POINT RTC VECTOR TO ERROR REPORT 
042777 000200 167574 BIC #B1T7,aLKS “CLEAR CLOCK DONE F LAG 
052777 000100 167566 BIS #BIT6.aLKS “ENABLE CLOCK INTERRUP 


TS 
105777 167562 1$: TSTB aLKS [WAIT FOR DONE (INTERRUPT REQUEST) 
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015056 


000100 167540 


01 
01 
01 
3253 01 
01 
01 
01 
013252 022626 
013254 104150 


013256 010377 167550 


013262 
01 000066 
000001 
001106 


—S ese 
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T65 THAT RTC INTERRUPT CLEARS WITH RESET 


BPL 1$ 
RESET 


JSR PC ,WRPSW 
«WORD 240 


NOP 
BIC #B1T6,aLKS 
BR 3$ 


CLEAR PENDING INTERRUPT WITH RESET 
SET PRIORITY TO 5 


:GIVE TIME FOR ANY INTERRUPT 
;DISALLOW INTERRUPTS 
7BR TO END OF TEST 


013366 
3286 013370 


915056 
167510 


167440 


000200 
015056 


000100 


167502 
167452 
167444 


167430 


167412 


013376 
013400 
013402 104151 


167422 
015056 


2s: CMP (SP)+, (SP)+ :RESTORE SP AFTER INTERRUPT 
ERROR 159 RESET DID NOT CLEAR INTERRUPT 
3S: MOV R3,aRTCVT ;RESTORE LINE CLOCK VECTOR 
FERRARA EERE EEE EEE RERERREEEREEEREEEEEREREEEREEEREKKE KEE 
TEST 66 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 
g SEERAAAAAARAERORAARAAREEAAAERARARERRRARRARERARRRRARARARERRRARERD 
+8166: SCOPE 
MOV #66, STESTN SET TEST NUMBER IN APT MAIL BOX 
BIT #1, aASENV TARE WE RUNNING UNDER APT 
BEQ 70$ :1f NO THEN 00 TEST 
TST a¥$PASS [1S THIS FIRST PASS 
ts BNE TST67 ZIF NO THEN SKIP TO NEXT TEST 
JSR PC ,WRPSW ;SET PRIORITY TO 7 
.WORD 3 
MOV ART CVT RS ;SAVE LINE CLOCK VECTOR 
MOV #2$, aRTCVT [POINT RTC VECTOR TO ERROR REPORT 
BIC #B1T7,aLKS ZCLEAR CLOCK DONE FLAG 
BIS #8116. @LKS TENABLE CLOCK INTERRUPTS 
1$: TST aLKS [WAIT FOR DONE (INTERRUPT REQUEST) 
BIC #8117, @LKS ;CLEAR DONE & INTERRUPT 
JSR PC, WRPSW ZALLOW INTERRUPTS 
.WORD 240 
NOP :GIVE TIME FOR ANY INTERRUPT 
BIC #B1T6,@LKS [DISALLOW INTERRUPTS 
BR 3$ BR TO END OF TEST 
2s: CMP (SP)+, (SP)+ ;RESTORE SP AFTER INTERRUPT 
ERROR 151 [CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT 
3$: Mov R3,aRTCVT :RESTORE LINE CLOCK VECTOR 
JSR PC -WRPSW ZRESTORE PRIORITY TO 7 
-WORD 340 
s PAAR EAE ARAEKeKe eee eke eeteeeeekeee 
TeTEST 67 TEST CLOCK REPEATABILITY 
MASSER ESSASRARSSRSSE SERS SERRE EERE SERRE ERE RE RR SEES ESE REE REESE RRR ERS S| 
15167: SCOPE 
MOV #67. $TESTN SET TEST NUMBER IN. APT MAIL BOX 
BIT #1, a#SENV ZARE WE RUNNING UNDER APT 
BEQ 708 :1F NO THEN DO TEST 
TST aA$PASS TIS THIS FIRST PASS 


SEQ 0065 
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3306 013442 001056 BNE TST70 ;1F NO THEN SKIP TO NEXT TEST 
3307 013444 70$: 
3308 013444 042777 000100 167336 BIC #B1T6,@LKS tar By INTERRUPTS 
3309 013452 005000 CLR RO CLEAR A TIMER 
3310 013454 012701 177777 MOV #-1,R1 SSET A FLAG INDICATING FIRST PASS THRU THIS LOOP 
3311 013460 005002 1$: CLR R2 CLEAR CLOCK COUNTER 
3312 013462 005077 167322 CLR @LKS SCLEAR DONE 
3313 013466 105777 167316 2$: TSTB @LKS SYNC ON DONE 
3314 013472 100375 BPL 2$ 
3315 013474 005077 167310 CLR ALS ;CLEAR DONE 
3316 013500 105777 167304 3$: TSTB @aLKS 31S CLOCK DONE? 
3317 013504 100003 BPL 4$ ;BR IF NOT , TO INCREMENT TIMER 
3318 013506 005202 INC R2 31F DONE, INCREMENT CLOCK COUNT 
3319 013510 005077 167274 CLR @LKS ; CLEAR DONE 
3320 013514 005200 4$: INC RO ; INCREMENT TIMER 
3321 013516 001370 BNE 3$ ;BR IF TIME REMAINS 
3322 013520 005201 INC R1 ; INCREMENT LOOP PASS FLAG 
3323 013522 001003 BNE CMPARE sBR IF TWO PASSES HAVE BEEN MADE 
3324 013524 010237 013574 MOV R2,FIRST 7I1F NOT, STORE FIRST CLOCK COUNT 
3325 613530 000753. BR 1$ :DO LOOP AGAIN 
3326 013532 013701 013574 CMPARE: MOV FIRST,R1 TRECALL FIRST CLOCK COUNT 
3327 013536 160201 SUB R2,R1 CALCULATE DIFFERENCE OF TWO COUNTS 
3328 013540 100001 BPL TOLER yIF POSITIVE,SKIP NEGATION OF DIFFERENCE 
3329 013542 005401 NEG R1 “MAKE DIFFERENCE A POSITIVE NUMBER 
3330 013544 020127 000002 TOLER: CMP R1,A2 COMPARE DIFFERENCE WITH DESIRED TOLERANCE 
3335 013550 003403 BLE 5$ 7BR, IF LOWER/EQUAL TO TOLERANCE 
3333 013552 010237 013576 MOV R2,SECND STORE SECOND COUNT 
eeee 013556 104152 ERROR 152 :CLOCK REPEATABILITY ERROR 
3336 013560 032777 000040 165252 5$: BIT #BIT5,aSWR ; CLOCK iS a ONLY? 
3337 013566 001404 BEQ TST70 BR IF 
$395 013570 000137 014740 JMP $EOP sELSE. SUMP TO END OF PASS ROUTINE 
3340 013574 000000 FIRST: QO 


3341 013576 000000 SECND: 0 
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000004 


000776 


005237 
000137 
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000070 
000001 


001106 
014740 
000340 


000001 
000004 


000002 


000100 


000004 
000100 


001070 


167074 


001156 
166746 
166740 
166726 
001156 


166700 
166666 


001156 
166664 
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TEST CLOCK REPEATABILITY 


© eT EERE REE REE EERE REE ERE EEK EEE 


VRTEST 70 


© ee IT TR RR ERE ERE KEE EEE KEKE 


18170: 


70$: 


1$: 


2$: 


3$: 


WAITIO: 


TICKER: 


SCOPE 
MO 


TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY 


#70, $TESTIN 3;SET TEST NUMBER IN APT A tac BOX 
#B1T0,a#$ENV ;ARE WE RUNNING UNDER APT 
7 ;1F NO DO TEST 
@ASPASS 71S THIS Ag PASS 
70$ SIF YES DO TEST 
$EOP :IF NO DO ~ DO TEST 
;CLEAR EVERY BODY 

2PS [SET PROCESSOR PRIORITY TO 7 
aTVECT,STMPO 
@RVECT,$TMP1 
aCTVECT, $TMP2 
@CRVECT ,STMPS 
@RTCVT,STMP4 
XMTCT1 INITIALIZE COUNTERS 
XMTCT2 
RECCT1 
RECCT2 


SXMIT1 @CTVECT ;SET UP SLU? TRANSMIT VECTOR 
#RECT, @CRVECT SEI uP sul RECEIVER VECTOR 
#XMIT2, @TVECT SET UP SLU2 TRANSMIT VECTOR 
WREC2, @RVECT Se UP SLU2 RECEIVER VECTOR 


RPS 

#TICKER, @RTCVT ;SET UP RTC VECTOR 
#340, @RTCPSW AND PSW 

TO, $DEVM 31S SLU UNDER TEST 
1$ [IF NO DON'T TURN IT ON 
#B1T2, @CTCSR ;ENABLE SLU1 SOT tren WRAP 
#BIT6, A@CTCSR ;ENABLE SLU1 XMIT INTERRUPT 
ABIT6, — SENABLE SLU1 RECEIVER INTERRUPT 


ae $DEVM 21S SLU2 mo a TEST 


3] IT VU 
#B1T6, aTCSR TENABLE SLU2 XMIT INTERRUPT 
#BIT6, ARCSR ;ENABLE SLU2 at I a cent 


ABUF 2, R3 :SET UP RECEIVER _ 

#BIT2, SDEVM ;I1S LTC UNDER TEST 

3$ :1F NO DON'T SET IT UP 

#BI1T6, ALKS ENABLE RTC INTERRUPTS 

#-1, RO INITIALIZE DATA FOR SLU1(1ST CHR. 0) 

#-1, R1 sINITIALIZE DATA FOR SLU2(1ST CHR. 0) 

PS [DROP PROCESSOR PRIORITY TO ZERO 
[WAIT FOR INTERRUPT 

WAITIO 


COUNT . gUPDATE C 
IOHAND :GO TO INTERRUPT HANDLER 


SEQ 0067 | 
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014154 


014230 
014232 


014320 
014324 


0 
014372 


014454 


005237 


000137 


005237 


000005 
020227 


000137 
005237 


000005 
020327 


104154 
117723 


032737 


032777 
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014726 


166620 
014726 


000100 
014400 


014732 
166562 


166554 


030450 
177777 
177777 


166516 
014400 


014730 


166474 
014730 


000100 
014400 


014734 
166436 


166430 


031050 
177777 
177777 


166372 - 


000004 
014736 
000100 
000100 
000100 
000001 


000100 


000400 
166600 


001026 


001024 
001024 


000400 
166454 


001026 


001024 
001024 


001156 
000074 
166356 
166340 
166346 
001156 


166322 


- — 
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XMIT1: 


1$: 
REC1: 


REC2: 


1$: 
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TEST ALL INTERNAL OPTIONS SIMULTANEOUSLY 


INC XMTCT1 UPDATE XMIT 1} poe COUNT 

INC RO [UPDATE XMIT DAT 

MOV RO, @CTBUF tie NEXT CHARA Cr ER 

CMP XMTCT1,4400 F 256 CHARACTERS HAVE NOT BEEN 

BLT 1$ ‘TRANSFERRED CONT INUE 

BIC #BIT6, ACTCSR ;1F YES TURN OFF TRANSMITTER INTERRPUTS FIRST 
JMP IOHAND ;60 TO INTERRUPT HANDLER 


INC RECCT1 ; UPDATE RECEIVER INTERUPT COUNT 

TST @CRBUF 5 SET IF ANY ERRORS OCCURRED 
3$ ' RROR 

MOV @CRBUF, $BDDAT ; 
;CLEAR THE WORLD STOP ALL 
> INTERRUPTS 


CMP R2, ABUF1 [WAS MORE THAN 1 WORD TRANSFERRED 
BGT 4$ ;1F YES GET LAST GOOD DATA 

MOV #-1, $GDDAT [MAKE GOOD DATA = 

BR 2$ ;GO_ TO ERROR REPORT 

MOVB -1(R2), $GDDAT GET LAST GOOD DATA 

ERROR 153 :RECEIVER STATUS ERROR 

MOVB @CRBUF, (R2)+  ;GET DATA_AND STORE IT 

JMP IOHAND :GO TO INTERRUPT HANDLER 

INC XMTCT2 UPDATE XMIT INTERRUPT COUNT 

INC R1 _  ;UPDATE XMIT DATA 


MOV R1, @TBUF 1 NEXT CHARACTER 

CMP XMTCT2, #400 . F 256 CHARACTERS HAVE NOT 
BLT 1$ ‘BEEN TRANSFERRED CONT INUE 
BIC #B1T6, aTCSR ELSE NO MORE XMIT INTERRUPTS 
JMP IOHAND :GO TO INTERRUPT HANDLER 


INC RECCT2 thet RECEIVER INTERRUPT COUNT 


TST @RBUF T 15 SETS IF ANY ERRORS OCCURRED 
BPL 3$ ‘TF ait IS CLEAR NO ERRORS 
OV @RBUF, $BDDAT ;GET ERROR INFORMATI 
RESET ;CLEAR THE WORLD - STOP ALL 
; INTERRUPTS 
CMP R3, #BUF2 [WAS MORE THAN 1 WORD a 
BGT 1$ z1F YES GET ond GOOD DATA 
MOV #-1, SGDDAT SIF NO MAKE GOOD DATA os 
BR 2$ ZAND GET TO ERROR REPORT 
MOVB ~1(R3), $GDDAT ;GET LAST GOOD yk  Naidea 
ERROR 154 SRECEIVER STATUS ERR 
MOVB @RBUF, (R3)+ [GET DATA AND STORE tT 
: BIT ABIT2, SDEVM :1S RTC UNDER TEST 
BEQ 1$ iI NO CHECK OTHER DEVICES 
Me aes 


CMP COUNT, #74 
3$ 


BIC #B1T6, aCTCSR 
BIC wei tee aTCSR 


INUE T 
IF YES STOP TRANSMISSIONS 


BIC #B1T6, @LKS [TURN OFF LINE CLOCK 
BR WAITER 

BIT ABITO, $DEVM 31S SLU1 UNDER TEST 
BEQ 2$ zIF NO CHECK FOR SLU2 


BIT #B1T6, @CTCSR 1S TRANSMITTER SHUTDOWN 


SEQ 0068 
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014462 001405 BEQ 3$ 71F NO CONTINUE TEST 
014464 000405 BR WAITER [IF YES GO WAIT FOR POSSIBLE 
014466 032777 000100 166300 e$: BIT A#BIT6, @aTCSR 31S TRANSMITTER SHUT DOWN 
014474 001001 BNE WAITER :IF YES GO WAIT FOR POSSIBLE 
SLAST CHARACTER 
014476 000002 3$: RTI TRETURN FROM INTERRUPT TO AWAIT NEXT 
014500 005037 177776 WAITER: CLR PS ZMAKE PROCESSOR PRIORITY 0 
014504 012705 140000 MOV #-40000, R5 ;SET UP LOOP COUNTER 
014510 062705 000001 1$: ADD #1, R5 :D0 LOOP UNTIL R5 = 0 
014514 001375 BNE 1$ 
014516 000005 RESET STOP EVERYONE SHOULD BE DONE 
014520 012706 001000 MOV #1000,SP TRESET STACK AFTER LAST INTERRUPT 
014524 032737 000001 001156 CHECK1: BIT #BITO, $DEVM ;SLU1 UNDER TEST 
014532 001424 BEQ CHECK2 7 IF NO GO CHECK SLU2 DAT 
014534 023737 014726 014732 CMP XMTCT1,RECCT1 4 OF XMIT INTERRUPTS = REC INTERRUPTS 
014542 001401 BEQ 1$ 31F YES GET OVER ERROR AND CHECK DATA 
014544 104155 ; FRROR 155 > INTERRUPT Ages to ERROR 
014546 012702 030450 1$: MOV #BUF1, R2 :POINT TO FIRST DAT 
014552 005000 CLR RO INITIALIZE TO FIRST DATA XMIT 
014554 013704 014726 MOV XMTCT1, R4 [GET # OF BYTES TRANSFERRED 
014560 122200 2$: CMPB (R2)+, RO :IS mcr ieee DATA = EXPECTED 
014562 001406 BEQ 3$ 31F YES CONTINUE 
014564 114237 001026 MOVB -(R2), > at 7 1F NO GET ERROR INFORMATION 
014570 010037 001024 MOV vi $GD 
014574 104156 ERROR 156 ;SLU1 DATA COMPARISON ERROR 
014576 005202 INC R2 31F CONTINUE ON ERROR RESET POINTER 
014600 005200 3$: INC RO _ UPDATE TO NEXT GOOD DATA 
014602 077412 SOB R4,2$ ;LCOP UNTIL ALL_DATA CHECKED 
014604 032737 000002 001156 CHECK2: BIT #BIT1, $DEVM :SLU2 UNDER TEST 
014612 001424 BEQ FINIE F NO WE'RE DONE 
014614 023737 014730 014734 CMP XMTCT2, RECCT2 :MOF XMIT INTERRUPTS = REC INTERRUPTS 
014622 001401 BEQ 1$ :1F YES CHECK DATA 
014624 104157 ERROR 157 7 INTERRUPT COMPARISON ERROR 
014626 012703 031050 1$: MOV ABUF 2, R3 ZINITIALIZE TO FIRST aM BR DATA 
014632 005001 CLR R1 INITIALIZE TO FIRST XMIT DATA 
014634 013704 014730 MOV XMTCT2, R4 [GET # OF BYTES TRANSFERRED 
014640 122301 2e$: CMPB (R3)+, R1 31S RECEIVED DATA = EXPECTED DATA 
014642 001406 BEQ 3$ SIF YES CONTINUE TESTING 
014644 114337 001026 MOVB -(R3), $BDDAT ;IF NO GET ERROR INFORMATION 
014650 010137 001024 MOV R1, $GDDAT 
014654 104160 ERROR 160 3SLU2 DATA COMPARISON ERROR 
014656 005203 INC R3 71F COONTINUE ON ERROR 7 es POINTER 
014660 005201 3$: INC R1 [UPDATE TO NEXT GOOD DATA 
014662 077412 SOB R4,2$ LOOP UNTIL ALL DATA CHECKED 


014664 013777 001060 ‘FINIE: MOV $TMPO, @TVECT RESTORE VECTORS 


MOV $TMP1, @RVECT 
MOV $TMP4, ARTCVT 
014722 000137 014740 JMP $EOP zFINISHED TESTING GO TO END OF PASS 


014726 000000 XMTCT1: .WORD QO 
014730 000000 XMTCT2: .WORD 0 
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3510 014732 000000 RECCT1: .WORD 


Q 
3511 014734 000000 RECCT2: .wORD OQ 
$216 014736 000000 COUNT: — «WORD 0 


SEQ 0070 


ey ae er ee 


yen Ss & & Oe ¢ Oe 418 


| 

6 6 
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3514 . 

3515 _SBITL END OF PASS ROUTINE 

3215 (orp nenee yainyp mbeppamns pemneagaer ariaaaN 2 t 

3518 INCREMENT THE PASS NUMBER ($PASS 

3519 S*TYPE "END PASS #XXXXX'' (WHERE Se IS A DECIMAL NUMBER) 

3520 ‘ef THERES A MONI TOR GO TO IT 

5c t*]F THERE ISN'T JUMP TO TST1 

3523 014740 $EOP: 

3524 014740 000004 SCOPE 

3525 014742 005037 001002 CLR $TSTNM . ; : ZERO THE TEST NUMBER 

%526 014746 005237 001106 INC $PASS ‘INCREMENT THE PASS NUMBER 

3527 014752 042737 100000 001106 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 

3528 014760 005327 DEC (PC)+ + LOOP? 

3529 014762 000001 SEOPCT: .WORD 1 

3530 014764 003022 BGT $DOAGN sr YES 

3531 014766 012737 MOV (PC)+,a(PC)+  3;RESTORE COUNTER 

3532 014770 000001 SENDCT: .WORD 1 

3533 614772 (014762 $EOPCT 

3534 014774 106401 015041 TYPE , SENDMG :TYPE "END PASS #"' 

3535 015000 013746 001106 MOV $PASS,-(SP) ISAVE $PASS FOR TYPEOU 

3536 015004 104405 TYPDS +:GO TYPE=-DECIMAL Ast} WITH SIGN 

3537 015006 104401 015036 TYPE , SENULL +: TYPE A NULL CHARACTER 

3538 015012 013700 000042 $GET42: MOV a#42,RO +:GET MONITOR ADDRESS 

3539 015016 001405 BEQ $DOAGN "BRANCH IF NO MONITOR 

3540 015020 000005 RESET ‘= CLEAR THE WORLD 

3541 015022 004710 $ENDAD: JSR PC, (RO) +:G0 TO MONITOR 

3542 015024 000240 NOP *:SAVE ROOM 

3543 015026 000240 NOP :: 

3544 015030 000240 NOP *ZACT11 

3545 015032 $DOAGN: 

3546 015032 000137 JMP a(PC)+  ; RETURN 

3547 015034 003450 $RTNAD: .WORD, i 

3548 015036 377 77 000 $ENULL: .BYTE 0 :NULL CHARACTER STRING 

3549 015041 015 042412 042116 $ENDMG: .ASCIZ <ihoel rene PASS’ #/ 

3550 015046 050040 051501 020123 

3551 015054 000043 

3553 015056 011646 WRPSW: MOV(SP),-(SP) ;COPY RETUN PC 
013616 MOV a(SP)+, (SP) ‘MOVE NEW PSW TO STACK 
062746 000002 ADD #2,-(SP) ‘ADJUST JSR RETURN 
000002 RTI ‘POP RETURN PC & NEW PSWw 

SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 

012600 CATCH: MOV (SP) +,RO :GET ADDRESS OF TRAP VECTOR + 4 
162700 000004 SUB #4 RO “ADJUST TO POINT TO TRAP ADDRESS 
010037 015116 MOV RO.RDVECT “STORE TRAP OR INTERRUPT ADDRESS 
016637 000002 015114 MOV 2($P), OLDPC ‘GET PC WHERE TRAP OR INTERRUPT OCCURRED 
104161 ERROR >REPORT ERROR 
000000 HAL T ;PROGRAM MUST BE RESTARTED AT THIS POINT 
000000 OLDPC: .WORD 


oOo 


000000 BDVECT: .WORD 
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WW 
Ww ‘ 
™ 
IN 


3609 


SSSR 
OWNAWESWH-O 


015120 


015300 
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105237 


104401 
122737 


013716 


022737 
001001 
000000 


000002 


001003 
001002 


020000 


015302 
001075 


000001 


001014 
016004 


163606 


001000 


001010 
001072 


001072 
015022 


163706 


001016 
001014 
163652 


001120 
015222 


163572 


000042 


H 6 
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END OF PASS ROUT] NE 


PUT TTTTTILILILILI LLL LLL LLL LLL tL 
T*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
7*SAVE THE ERROR ITEM yn AND ADDRESS OF THE ERROR CALL 
+ *AND GO TO SERRTYP ON ERRO 
+ * THE SWITCH OPTIONS SROV DED BY THIS ROUTINE ARE: 


+ *SW15=1 HALT ON, ERROR 
3*SW13=1 INHIBIT ERROR TYPEOUTS 
ian LOOP IN ERROR 
> *CALL 
;* ERROR N ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SEERA AAA AREER ERE ARAL EEE AREER REAR EREERERRERREERERERAAAA ERAN ES 
$SERROR: 
7$: INCB $ERFLG . ;SET THE ERROR FLAG 
BEQ 7$ :DON'T LET FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY ;DISPLAY TEST NUMBER AND ERROR FLAG 
INC $SERTTL ; INCREMENT ERROR COUNT 
ay (SP) SERRPC GET ADDRESS OF ERROR INSTRUCTION 
MOVB aSERRPC,$ITEMB - ;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13,aSWR :SKIP TYPEOUT IF SET 
BNE 20$ :SKIP TYPEOUTS 


JSR PC, SERRTYP. 
TYPE , $CRLF 


+60 TO USER ERROR ROUTINE 


208: 
CMPB HAPTENV, SENV RUNNING IN APT MODE 
BNE 2$ NO, SKIP APT ERROR REPORT 
MOVB $1TEMB,21$ “SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, $SATY4 *REPORT FATAL ERROR TO APT 
21$: BYTE 
228: BR 22$ ;APT ERROR LOOP 
es: TST aSwR *HALT ON ERROR 
BPL L: sSKIP IF CONTINUE 
HALT *HALT ON ERROR! 
3$: CKSWR : TEST FOR CHANGE IN SOFT- -SWR 
BIT #B1T09,aSWR SLOOP ON ERROR SWITCH SET? 
BEQ 4 :BR IF NO 
MOV $LPERR, (SP) :FUDGE RETURN FOR LOOPING 
4$: TST $ESCAPE s CHECK a AN ESCAPE ADDRESS 
BEQ 5$ ‘BR IF NONE 
58 MOV $ESCAPE , (SP) FUDGE RETURN ADDRESS FOR ESCAPE 
CMP " ASENDAD ,a#42 sACT=-11 AUTO-ACCEPT? 
BNE 6$ ;BR IF NO 
HALT YES 
6$: 


RTI RETURN 


SEQ 0072 


pone ee So tr 


| 
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CUKDFA.P11 19=MAR=81 14:27 END OF PASS ROUTINE SEQ 0073 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


TREE REEREEREREEEEEEER EEE EREEE 


~ *STHIS ROUTINE USES THE "ITEM CONTROL BYTE’’ ($ITEMB) TO DETERMINE WHICH 
| ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE'’ ($ERRTB), 

AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
015302 $ERRTYP: 
015302 104401 001075 TYPE SSCRLF "CARRIAGE RETURN'' & "LINE FEED" 
015306 010046 MOV RO,=(SP) + SAVE RO 
015310 005000 CLR RO *:PICKUP THE ITEM INDEX 
015312 153700 001014 BISB  a#$ITEMB,RO 
015316 001004 eee BNE 1$ zz: IF ITEM NUMBER IS ZERO, JUST 

+: TYPE THE PC OF THE ERROR 
015320 013746 001016 MOV SERRPC ,-(SP) ZESAVE SERRPC FOR TYPEOUT 
) TERROR ADDRESS 

015324 104402 TYPOC £260 TYPE=-OCTAL ASCII(ALL DIGITS) 
015326 000426 BR 6$ [GET OUT 
615330 005300 -* Si DEC RO ADJUST THE INDEX SO THAT IT WILL 
015332 006300 ASL RO 3: WORK FOR THE ERROR TABLE 
015334 0063 ASL RO 
015336 006300 ASL RO 
015340 062700 001160 ADD #ASERRTB,RO FORM TABLE POINTER 
015344 012037 015354 MOV (RO) +,2$ PICKUP ‘ERROR MESSAGE’ POINTER 
015350 001404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
015352 104401 TYPE +: TYPE THE ‘ERROR MESSAGE'’ 
015354 000000 2$: .WORD 0 73" ERROR MESSAGE’’ POINTER GOES HERE 
015356 104401 001075 TYPE »$CRLF S''CARRIAGE RETURN'' & "LINE FEED" 
015362 012037 015372 3$: MOV (RO)+,48 ‘PICKUP ‘DATA HEADER'’ SINTER 
015366 001404 BEQ 5$ ;:SKIP TYPEOUT IF 0 
015370 104401 TYPE TYPE THE ‘DATA HEADER'' 
015372 000000 4$: .WORD 0 iz’ DATA HEADER'’ POINTER GOES HERE 
015374 104401 001075 : TYPE »$CRLF S;''CARRIAGE RETURN'' & ‘LINE FEED" 
015400 011000 5$: MOV (RO) ,RO *:PICKUP ‘DATA TABLE" POINTER 
015402 001004 BNE 7$ +:GO TYPE THE DATA 
015404 012600 7 6$: MOV (SP)+,RO ;:RESTORE RO 
015406 104401 001075 TYPE /$CRLF ‘CARRIAGE RETURN’ & "LINE FEED'' 
015412 000207 ats: KC. + RETURN 
015414 7$: 
015414 013046 MOV @(RO)+,-(SP) ::SAVE a(RO)+ FOR TYPEOUT 
015416 104402 TYPOC +260 TYPE--OCTAL ASCII(ALL DIGITS) 
015420 005710 TST (RO) i318 THERE ANOTHER NUMBER? 
015422 001770 BEQ 6$ +:BR IF 
015424 104401 015432 TYPE 8$ ii TYPE 1wo(2) SPACES 
015430 000771 BR 7$ * LOOP 
015432 020040 000 88: “ASCIZ / / + TWO 2) SPACES 


015436 -EVEN 
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704 015562 
3705 015566 
706 915570 


015612 


012737 


000776 


012737 


15 
000122 
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015576 
000340 


015576 
015602 
163312 


015436 


015602 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


6 
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ERROR MESSAGE TYPEOUT sce 


.SBTTL POWER DOWN AND UP ROUTINES 
{ERRATA A AAA AAA AAA AA AAA ATTRA AAA A AAR A RATES 
:*POWER DOWN ROUTINE 
. SI ICID IOI IIIS IOI IO IID Ii ntti it Reaease 
$PwRDN: MOV ASILLUP,@#PWRVEC ;SET FOR FAST UP 
MOV. #340, a#PWRVEC+2 :PRIO:7 
MOV RO,-(SP) *PUSH RO ON STACK 
MOV R1,=(SP) ‘PUSH R1 ON STACK 
MOV R2,-(SP) “PUSH R2 ON STACK 
MOV R3,=(SP) *PUSH R3 ON STACK 
MOV R4.=(SP) “PUSH R4 ON STACK 
MOV R5,-(SP) ‘PUSH RS ON STACK 
MOV aSwR,=(SP) PUSH @SWR ON STACK 
MOV SP, $SAVR6 sSAVE SP 
MOV #SPWRUP,@APWRVEC ;SET UP VECTOR 
' L 
BR 72 ;HANG UP 
DI RRR REE AE EERE RARER EERE REE RE RES 
:*POWER UP ROUTINE 
IIR RICCI IOI IOISISIEIEIOIOI IOI III ITT II TTT TT TTT TT TTT TOI 
$PwRUP: MOV #SILLUP,@#PWRVEC ;SET FOR FAST DOWN 
MOV $SAVR6, SP :GET SP 
MOV (SP) +, @SWR :POP STACK INTO aSWR 
MOV (SP) +,R5 . 
MOV (SP) +._RG :POP STACK INTO R4 
MOV (SP)+.R3 ‘POP STACK INTO R3 
MOV (SP)+,R2 ‘POP STACK INTO R2 
MOV (SP)+, R1 ‘POP STACK INTO R1 
MOV (SP)+,RO “POP STACK INTO RO 
MOV HSPURON, @#PWRVEC’ :SET UP THE POWER DOWN VECTOR 
MOV #340, aM#PWRVEC+2 ;PRIO:7 
CLR $SAVR6 ‘WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 tWAIT FOR THE INC 
BNE 1$ SOF WORD 
TYPE ‘REPORT THE POWER FAILURE 
$PWRMG: WORD $POWER “POWER FAIL MESSAGE POINTER 
$ILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED 
BR 72 : BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 ‘PUT THE SP HERE 
$POWER: .ASCIZ <15><12>"'POWER’' 


SEQ 0074 
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015614 
015614 
015616 
015624 


015626 
015630 


104407 
032777 
001052 
000416 


013746 


000407 
105737 


000002 
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040000 


000004 


000004 


000004 


001003 
001000 
001010 
001003 


001006 


ee eg ee 
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163214 


000004 


163140 
001006 


001104 


001015 
163062 
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POWER DOWN AND UP ROUTINES 


.SBTTL SCOPE HANDLER ROUTINE 


RRRERERERERERER EERE EEE EE REAR RARER REE EER Ree 

SS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
‘*AND LOAD THE TEST NUMBER(STSTNM) INTO THE rheetee REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


+ *SW1 = LOOP ON TEST 
3 *SwO9=1 LOOP ON ERROR 
s*CALL 
5 SCOPE 3; SCOPE= 
$SCOPE: 
CKSWR i 
1$: BIT #B1T14,aSWR 
BNE SOVER 
;MHAAASTART OF CODE FOR THE XOR 
$XTSTR: BR 6$ 
MOV @AMERRVEC ,- (SP) 
MOV #5$,a#ERRVEC 
TST a#177060 
MOV (SP) + ,@MERRVEC 
BR $SVLAD 
5$: CMP (SP) +, (SP)+ 
MOV (SP) +, @#ERRVEC 
BR $ 
6$:;AAAAAEND OF 
2$: TSTB 
BEQ $SVL 
BiT #51109. aSuR 
BEQ 4$ 
7$: MOV $LPERR,$LPADR 
"BR SOVER 
4$: CLRB SERFLG 
$SVLAD: INCB $TSTNM 
MOVB STSTNM,STESTN 
MOV (SP) , $LPADR 
MOV (SP) ,SLPERR 
CLR SESCAPE 
MOVB #1,$ERMAX 
$OVER: MOV $TSTNM,@DISPLAY ; 
“44 $LPADR, (SP) 


27 PAGE 75 


I0T 


TEST FOR CHANGE IN SOFT=SWR 
3 SLOOP ON PRESENT TEST? 
YES IF SwW14=1 
tisteRMMmnn 
self RUNNING ON THE ay a ® TESTER CHANGE 
THIS INSTRUCTION TO A _‘NOP"' (NOP=240) 
TZSAVE THE CONTENTS OF A THE ERROR VECTOR 
2eSET FOR TIMEOUT 
TIME OUT ON XOR? 
3 ERESTORE THE ERROR VECTOR 
:GO TO THE NEXT TEST 
TICLEAR THE STACK AFTER A TIME OUT 
; ¢RESTORE THE ERROR VECTOR 
OP ON THE PRESENT TEST 


7 
6H Le THE XOR TESTERAMHAM 


3 ¢HAS : og” ae OCCURRED? 

+ LOOP ON ERROR? 

32;BR IF NO 

:7SET LOOP ADDRESS TO LAST SCOPE 


2 ONT THE ERROR FLAG 
TEST NUMBERS 
:3SET TEST NUMBER IN APT MAILBOX 


 ESAVE ERROR LOOP ADDRESS 

+t THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
:DISPLAY TEST NUMBER 
;FUDGE RETURN ADDRESS 

FIXES PS 


SEQ 0075 


L 6 
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CJKDFA.P11 19=MAR=81 14:27 SCOPE HANDLER ROUTINE , SEQ 0076 
3761 
3762 LL RRAAE AAA EAA ARERR AEAAA ARERR AREER ARE ARERER AERA AERA ARH REARS 
3763 ; .SBTTL APT COMMUNICATIONS ROUTINE 
3764 PLEA E EERE AERA REAR AAAA AERA A EERE ERE RARER EES 
3765 
3766 015766 112737 000001 016232 S$ATY1: MOVB #1,$FFLG ;TO REPORT FATAL ERROR 
3767 015774 112737 000001 016230 $ATY3: MOVB #1,$MFLG :TO TYPE A MESSAGE 
3768 016002 000403 BR $ATYC 
3769 016004 112737 000001 016232 S$ATY4: MOVB #1,$FFLG TO ONLY REPORT FATAL FRROR 
3770 016012 $ATYC: 
3771 016012 010046 MOV RO,-(SP) sPUSH RO ON STACK 
3772 016014 010146 MOV R1,-(SP) “PUSH R1 ON STACK 
3773 016016 105737 016230 TSTB $MFLG ;SHOULD TYPE A MESSAGE? 
3774 016022 001450 BEQ 5$ ;1F NOT: BR 
3775 016024 122737 000001 001120 CMPB #APTENV, SENV ; OPERAT ING UNDER APT? 
3776 016032 001031 BNE 3$ ;IF NOT: BR 
3777 016034 132737 000100 001121 BITB #APTSPOOL ,SENVM ; i SHOULD SPOOL MESSAGE? 
3778 016042 001425 BEQ iIF BR 
3779 016044 017600 000004 MOV a4(SP),RO GET NOESSAGE ADDRESS 
3780 016050 062766 000002 000004 ADD #2,4(SP) “BUMP RETURN ADDRESS 
3781 016056 005737 001100 1$: TST $MSGTYPE :SEE IF DONE W/ LAST XMISSION? 
3782 016062 001375 BNE 1$ IF NOT: WAIT 
3783 016064 010037 001114 MOV RO, $MSGAD PUT ADDRESS IN MAILBOX 
3784 016070 105720 2$: TSTB (RO) + FIND END OF MESSAGE 
3785 016072 001376 BNE 2$ 
3786 016074 163700 01114 SUB $MSGAD ,RO ;SUB START OF MESSAGE 
3787 016100 006200 ASR RO :GET MESSAGE LENGTH IN WORDS 
3788 016102 010037 001116 MOV RO, $MSGLGT sPUT LENGTH IN MAILBOX 
3789 016106 012737 000004 001100 MOV #4, $MSGTYPE :TELL APT TO TAKE MESSAGE 
3790 016114 000413 BR 
3791 016116 017637 000004 016142 3$: MOV a4(SP) ,4$ :PUT MSG ADDR IN JSR LINKAGE 
3792 016124 062766 000002 000004 ADD #2 4 (SP) ‘BUMP RETURN ADDRESS 
3795 016132 013746 177776 MOV 177776, -(SP) ‘PUSH 177776 ON STACK 
3794 016136 004737 016234 JSR PC, $TYPE ;CALL TYPE MACRO 
3795 016142 000000 -WORD 0 
3796 016144 5$: 
3797 016144 105737 016232 10$: TSTB $FFLG ;SHOULD REPORT FATAL ERROR? 
3798 016150 001413 BEQ 12$ :1F NOT: BR 
3799 016152 005737 001120 TST SENV RUNNING UNDER APT? 
3800 016156 001410 BEQ 12$ ;IF NOT: BR 
3801 016160 005737 001100 11$: TST $SMSGTYPE ‘FINISHED LAST MESSAGE? 
3802 016164 001375 BNE 1$ IF NOT: wir 
3803 016166 017637 000004 001102 MOV a4(SP),$FATAL  :GET ERROR # 
3804 016174 005237 001100 INC $MSGTYPE ;TELL APT TO TAKE ERROR 
3805 016200 062766 000002 000004 12$: ADD #2,4(SP) ‘BUMP RETURN ADDRESS 
3806 016206 105037 016232 CLRB $FFLG :CLEAR FATAL FLAG © 
3807 016212 105037 016231 CLRB $LFLG *CLEAR LOG FLAG 
3808 016216 105037 016230 CLRB SMF LG :CLEAR MESSAGE FLAG 
3809 016222 012601 MOV (SP)+,R1 :POP STACK INTO R1 
3810 016224 012600 MOV (SP)+,RO :POP STACK INTO R1 
3811 016226 000207 RTS PC RETURN 
3812 016230 000 $MFLG: .BYTE 0O 
3813 016231 000 $LFLG: .BYTE 0O sLOG FLAG 
3814 016232 000 $FFLG: .BYTE 0 :FATAL FLAG 


3816 016234 - EVEN 
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3817 000200 APTSIZE=200 
3818 000001 APTENV=001 . 
APTSPOOL=100 


APTCSUP=040 


ee 


SEQ 0077 
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382 
ez -SBTITL TYPE ROUTINE 
3825 FERRARA EERE ERE REE RER RARER EERERERAREREREEAREAEE REREAD 
3826 ¢ *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 if 
3827 *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
3828 teNOTET: SNULL CONTAINS THE CHARACTER " BE USED AS THE FILLER CHARACTER. 
3829 t *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
on 7 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
-® 
3832 7*CALL: 
3833 3*1) USING A TRAP INSTRUCTION 
See an TYPE »MESADR szMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
-* 

3836 3* TYPE 
3837 3* ME SADR 
3840 016234 105737 001057 $TYPE: TSTB STPFLG Ee b ae # A TERMINAL? 
3841 60616240 100002 BPL 1$ 73BR IF 
3842 016242 000000 HALT 33HALT HERE IF NO TERMINAL 
3843 016244 000430 BR 3$ LEA vE 
3844 016246 010046 1$: MOV RO,-(SP) SAVE RO 
3845 016250 017600 000002 MOV @2(SP), RO T:GET ADDRESS OF ASCIZ STRING 
3846 016254 122737 000001 001120 CMPB HAPTENV, SENV 2 ¢RUNNING IN APT MODE 
3847 016262 001011 BNE 62$ 3NO,GO CHECK FOR APT CONSOLE 
3848 016264 132737 000100 001121 BITB HAPTSPOOL .SENVM ::SPOOL MESSAGE TO APT 
3849 016272 001405 BEQ 62$ 2 eNO, GO CHECK FOR CONSOLE 
3850 016274 010037 016304 MOV RO,61$ SETUP MESSAGE ADDRESS FOR APT 
3851 016300 004737 015774 JSR PC, SATY3 ; : SPOOL MESSAGE ” APT 
3852 016304 000000 61$: -WORD 0 32zMESSAGE ADDRESS 
3853 016306 132737 000040 001121 £28: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
3854 016314 001003 BNE 60$ SIYES, SKIP TYPE OUT 
3855 016316 112046 2$: MOVB (RO) +,=(SP) ;3PUSH CHARACTER TO BE TYPED —" STACK 
3856 016320 001005 BNE 4$ 72BR IF IT ISN'T THE TERMINA 
3857 016322 005726 TST (SP) + 321F TERMINATOR POP IT OFF THE STACK 
3858 016324 012600 60$: MOV (SP)+,RO zzRESTORE RO 
3859 016326 062716 000002 3$: ADD #2, (SP) 2 sADJUST RETURN PC 
3860 016332 000002 RTI 7 RETURN 
3861 016334 122716 000011 4$: CMPB #HT, (SP) 3:BRANCH IF <HT> 
3862 016340 001430 BEQ 8$ 
3863 016342 122716 000200 CMPB ACRLF , (SP) 3 3BRANCH IF NOT <CRLF> 
3864 016346 001006 ; BNE 5$ 
3865 016350 005726 TST (SP) + 7zPOP <CR><LF> EQUIV 

016352 104401 TYPE 7: TYPE A CR AND L 
3867 016354 001075 SCRLF 

016356 105037 016564 CLRB SCHARCNT 3: CLEAR CHARACTER COUNT 
3869 016362 000755 BR 2$ 37;GET NEXT CHARACTER 
3870 016364 004737 016446 5$: JSR PC. S$TYPEC 2:GO TYPE THIS CHARACTER 
3871 016370 123726 001056 6$: CMPB SFILLC,(SP)+ 2218 IT TIME FOR Aa CHARS.? 
3872 016374 001350 BNE 2s 721F NO GO GET NEXT ¢ 
3873 016376 013746 001054 MOV SNULL , =~ (SP) 22GET # OF FILLER CHARS. * NEEDED 
3874 ;AND THE NULL CHAR, 
3875 016402 105366 000001 7$: DECB 1(SP) IDOES A NULL NEED TO BE TYPED? 
3876 016406 002770 BLT 6 3zBR IF NO=-GO POP THE NULL OFF OF STACK 
3877 016410 004737 016446 JSR PC STYPEC 3:G0 TYPE A NULL 
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016414 
016420 


016422 


016 
016566 
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105337 
000770 


112716 


000724 
105777 


001012 
105777 


001366 
005726 
105777 


000207 


14:27 
016564 


000040 
016446 


000007 016564 


162372 
162366 
177600 
000023 
162346 
162342 


177600 
000021 


162324 


000002 
000015 


016564 


162316 
000002 


000012 000002 
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TYPE ROUTINE 
DECB 
BR 


;HORIZONTAL TAB 


8$: MOVB 
9$: JSR 


$TYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


INCB 
$CHARCNT : .WORD 


$TYPEX: RTS 


B 
19=MAR~81 


$SCHARCNT 
7$ 


PROCESSOR 
a’ (SP) 

PC, $TYPEC 
ig » SCHARCNT 


(SP) + 

2$ 

a$TKS 

10$ 
@$TKB,-(SP) 
#177600, (SP) 
ASXOFF , (SP) 
102$ 

a$TKS 

101$ 

@$TKB, (SP) 
#177600, (SP) 
AS$XON, (SP) 
101$ 

(SP) + 


10$ 
2(SP) ,a$TPB 
+ ga ,2(SP) 


$ 

ALF ,2(SP) 
$TYPEX 
(PC) + 


PC 


7 
14 


.SBTTL BINARY TO OCTAL (ASCII) 
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3:D0 COUNT AS A COUNT 


os 
oe 


;;REPLACE TAB WITH SPACE 
7-TYPE A SPACE 
se STOP NOT AT 


>:POP SPACE OFF STACK 
32GET NEXT CHARACTER 


3 CHAR IN KYBD BUFFER? ;MJDO01 
;;BR IF NOT ;MJDOO1 
33GET CHAR ;MJDOO1 
;STRIP Ages ei BITS ;MJDO01 
;WAS CHAR , :MJDO01 
+: BR IF NOT 3MJD001 
:MJDOO01 
:zWAIT FOR CHAR ;MJDOO1 
;MJDOO1 
3;GET CHAR :MJDOO1 
szSTRIP IT ;MJDO01 
:zWAS IT XON? :MJDO01 
:;BR IF NOT ;MJDOO1 
MJDOO01 
szFIX STACK :MJDOO1 
:MJDOO01 

sz WAIT UNTIL PRINTER IS READY 
:MJDOO1 


::LOAD CHAR TO BE TYPED INTO DATA REG. 
3721S CHARACTER A CARRIAGE RETURN? 

3; BRANCH IF NO 

7s YES~-CLEAR CHARACTER COUNT 


sEXIT 
3215 a it vee. LINE FEED? 
3;COUNT THE CHARACTER 
3; CHARACTER COUNT STORAGE 


AND TYPE 


RII IIUISII III OISISIIUIOIUISISISIDIDIOIUIDIDIDIOI IDIOT IOI TITE 
STHIS ROUTINE IS USED TO a a A 16-BIT BINARY NUMBER TO A 6-DIGIT 
[*OCTAL (ASCII) NUMBER AND TYPE IT. 

:*$TYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


S*CALL: 

3* MOV 
i* TYPOS 
;* BYTE 
3* BYTE 
2¢ 

2 « 

3* 

y* 


NUM, -(SP) 


N 
M 





NUMBER TO BE TYPED 
3:CALL_FOR TYPEOUT 
z3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


— 3 aM=1 OR 0 


321=TYPE LEADING ZEROS 
:;0=SUPPRESS LEADING ZEROS 


$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


SEQ 0079 | 





CJKDFA.P11 


016570 


017646 


012616 
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000000 
000002 
000001 017013 
000006 017015 
000005 017012 


017015 
000006 


000012 


017014 
177770 


000002- 000004 


MACY11 30A(1052) 
BINARY TO OCTAL (ASCII) AND TYPE 


C 
19=MAR-81 


; *$T¥POS OR $TYPOC 
*CALL: 


'* 
° 
-* 
° 
Py 
° 


;*CALL: 


$TYPOS: 


$TYPOC: 
$TYPON: 


1$: 
28: 


3$: 


4$: 
5$: 


7$: 


6$: 


" MOV 


TYPON 


MOV 
TYPOC 


MOV 
MoV / 


NUM, = (SP) 


NUM, = (SP) 


a(SP) ,=(SP) 
1(SP) SOF ILL 


(SP) +,$0MODE +1 


#2, (SP) 


SOMODE +1. R4 


F6.R 

Ra; SOMODE 
SOF ILL ,R4 
MS tte 


R3 
_ 


/(SP)+,R3 
“ 2(SP) ,4¢SP) 


(SP) +, (SP) 


7 
14:27 PAGE 80 


; NUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


: &$TYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


NUMBER TO BE TYPED 
SCALL FOR TYPEOUT 


3;PICKUP THE MODE 

7;;LOAD ZERO FILL SWITCH 
7;NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


tH THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 
SET me ITERATION COUNT 


 ESAVE R5 
72GET THE NUMBER OF DIGITS TO TYPE 


et yee he 4 MAX. ALLOWED 


DOM 
FORM THIS DIGIT 


:GET LSB OF THIS DIGIT 
:ETYPE THIS DIGIT? 


32 TEST FOR 0 
ir IF YES 0? 


BR | 
;DON'T SUPPRESS wire 0’S 
$ MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
::SAVE FOR TYPING 
2260 TYPE THIS DIGIT 
;COUNT BY 1 
BR IF MORE TO DO 
;BR_IF DONE of 
‘INSURE LAST DIGIT ISN'T A BLANK 
::G0 DO pe Maat DIGIT 


a wy 


RESTORE R3 
727SET THE STACK FOR RETURNING 


SEQ 0080 


omen nrc 


o> Ff 
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017 000002 RTI 3 ;RETURN 

017010 000 8$: -BYTE 0 3; STORAGE FOR ASCII DIGIT 

017011 000 BYTE 0 3 TERMINATOR FOR TYPE ROUTINE 

017012 000 $OCNT: .BYTE 0 :Z0CTAL DIGIT COUNTER 

017013 000 $OFILL: .BYTE O 3 ZERO FILL SWITCH 

017014 000000 $OMODE: .WORD 0 : NUMBER OF DIGITS TO TYPE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
PL REE ERR RRR REE REE ERE RR EERE RES 
:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
50) 4 sagas WITH SPACES. 
*® 3 ° 
i* MOV NUM, -(SP) 3zPUT THE BINARY NUMBER ON THE STACK 
:* TYPDS ::GO TO THE ROUTINE 

017016 $TYPDS: 

C17016 010046 MOV RO,-(SP) :;PUSH RO ON STACK 

017020 010146 MOV - R1,-(SP) :zPUSH R1 ON STACK 

017022 010246 MOV R2,~(SP) :zPUSH R2 ON STACK 

017024 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 

017026 010546 MOV R5,~-(SP) :7PUSH RS ON STACK 

017030 012746 020200 MOV #20200,-(SP) :2;SET BLANK SWITCH AND SIGN 

017034 016605 000020 MOV 20(SP),R5 :;GET THE INPUT NUMBER 

017040 100004 BPL 1$ _ ~27BR IF INPUT IS POS 

017042 005405. NEG R5 : ;MAKE THE BINARY NUMBER POS. 

017044 112766 000055 000001 MOVB #*=-,1(SP) : MAKE THE ASCII NUMBER NEG. 

017052 005000 1$: CLR RO 32ZERO THE CONSTANTS INDEX 

017054 012703 017232 MOV A$DBLK,R3 . ~zSETUP THE OUTPUT POINTER 

017060 112723 000040 MOVB #" ,(R3)+ :;SET THE FIRST CHARACTER TO A BLAN 

017064 005002 2$: CLR R2 ;:CLEAR THE BCD NUMBER ; 

017066 016001 017222 MOV $DTBL (RO) ,R1 3;GET THE CONSTANT 

017072 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 

017074 002402 BLT 4$ ;7BR IF DONE 

017076 005202 ~ Int R2 sz INCREASE THE BCD DIGIT BY 1 

017100 000774 GR 3$ 

017102 060105 4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 

017104 005702 TST R2 ::CHECK IF BCD DIGIT=0 

017106 001002 BNE 5$ :7FALL THROUGH IF 0 

017110 105716 TSTB (SP) :iSTILL DOING LEADING 0°S? 

017112 100407 BMI 7$ ;7BR IF YES 

017114 106316 5$: ASLB (SP) S's ? 

017116 103003 BCC 6$ :;BR IF NO 

017120 116663 000001 177777 MOVB 1(SP) ,-1(R3) s7YES--SET THE SIGN 

017126 052702 000060 6$: BIS ORe  « ::MAKE THE BCD DIGIT ASCII 

017132 052702 000040 7$: BIS ge Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 

017136 110223 MOVB R2, (R3)+ :zPUT THIS CHARACTER IN THE OUTPUT BUFFER 

017140 005720 TST (RO) + 7: JUST INCREMENTING j 

017142 020027 000010 CMP ——s— RO, #10 ::CHECK THE TABLE INDEX 

017146 002746 BLT 2$ ::GO DO THE NEXT DIGIT 

017150 003002 BGT 8$ ::GO TO EXIT 

017152 010502 MOV R5,R2 ::GET THE LSD 

017154 000764 BR 6$ :;GO CHANGE TO ASCII 

017156 105726 8$: TSTB (SP) + :zWAS THE LSD THE FIRST NON-ZERO? 










oe : 
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017160 100003 BPL 9$ :;BR IF NO: 

017162 116663 177777 177776 MOVB  <1(SP),<2(R3)  : YES==SET THE SIGN FOR TYPING 
017170 105013 9$: CLRB = (R3) +:SET THE TERMINATOR 
017172 012605 - MOV (SP) +,R5 +:POP STACK INTO R5 
017174 012603 MOV (SP) +.R3 ‘:POP STACK INTO R3 
017176 012602 MOV (SP) +,R2 +:POP STACK INTO R2 
017200 012601 MOV (SP)+.R1 +:POP STACK INTO R1 
017202 012600 MOV (SP)+,RO ::POP STACK INTO RO 
017204 104401 017232 TYPE $DABLK ‘:NOW TYPE THE NUMBER 
017210 016666 000002 000004 MOV 2(5P) ,4(SP) ‘ADJUST THE STACK 
017216 012616 MOV. (SP) +, (SP) 

017220 000002 RTI :;RETURN TO USER 
017222 023420 $DTBL: 10000. 

017224 001750 1000. 

017226 000144 100 


10. 
017232 000004 $DBLK: .BLKW 4 


F 7 
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CJKDFA.P11 19=MAR=81 14:27 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0083 
4064 
ipee -SBTTL TTY INPUT ROUTINE 
4,067 EPP EEL LLL tok DL Lk ddd dda dlalelaleialelaleleieleieieieieisieieieieieieiela 
4068 -ENABL LSB 
4069 
4070 RRR EERE EERE RARER RRR EERE ERE EEE EEE ERE 
4071 * #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
4072 S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
4073 T*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
4074 ;*WHEN OPERATING IN TTY FLAG MODE. 
4075 017242 022737 000176 001040 $CKSWR: CMP ASWREG, SWR ii1S THE SOF T=SWR SELECTED? 
4076 017250 .001074 E 15$ ANCH IF NO 
4077 017252 105777 161566 TSTB a$TKS. 73 CHAR THERE ? 
ore | 4078. 017256 100071 ; BPL 15$ 31F NO, DON'T WAIT AROUND 
4079 017260 117746 161562 MOVB @$TKB,-(SP) © ; SAVE THE CHAR 
4080 017264 042716 177600 BIC #°(177, (SP) TSTRIP=OFF THE ASCII 
4081 017270 022726 000007 CMP #7, (SP)+ t:1S IT A CONTROL G? 
4082 017274 001062 °: BNE 15$ 33NO, RETURN TO USER 
4083 ©17276 123727 001034 000001 CMPB $AUTOB, #1 72ARE WE RUNNING IN AUTO-MODE? 
sons 017304 001456 BEQ 15$ 7 BRANCH IF YES 
4086 017306 104401 017777 TYPE se 32ECHO THE CONTROL=-G (“*G) 
4087 017312 104401 020004 $GTSWR: TYPE , SMSWR 32 TYPE CURRENT ok op 
4088 017316 013746 000176 Vv SWREG,-(SP) 23 SAVE SWREG FOR TYPEOU 
4089 017322 104402 TYPOC 3GO TYPE--OCTAL ASCII CALL DIGITS) 
4090 017324 104401 020015 TYPE - SMNEW t:PROMPT FOR NEW SWR 
4091 017330 005046 19$: CLR -(SP) 3:CLEAR COUNTER 
4092 017332 . 005046 CLR «+ «=(SP) 33; THE NEW SWR 
4093 017334 105777 161504 7$: TSTB a$TKS i33CHAR THERE? 
ret 017340 100375 BPL 7$ zz1F NOT TRY AGAIN 
4096 017342 117746 161500 MOVB @a$TKB,-(SP) 7zPICK UP CHA 
tion 017346 042716 177600 BIC #*C177, (SP) lle IT eoBIT ASCII 
4099 
4100 
4101 017352 021627 000025 9$: CMP (SP) ,#25 3218S IT A CONTROL-U? 
4102 017356 001005 BNE 10$ ;;BRANCH IF NOT 
4103 917360 104401 017772 TYPE »SCNTLU 7zYES, ECHO CONTROL-U (“U) 
4104 017364 062706 000006 20$: ADD . 32 IGNORE PREVIOUS INPUT 
alee 017370 000757 BR 19$ 3zLET'S TRY IT AGAIN 
4107 
4108 017372 021627 000015 10$: CMP (SP) ,#15 ge13 17 . a 
4109 017376 001022 BNE 16$ 3 ;BRANCH NO 
4110 017400 005766 000004 TST 4 (SP) seVes, is. IT THE FIRST CHAR? 
4111 017404 001403 BEQ 11$ ;;BRANCH IF YES 
4112 017406 016677 000002 161424 MOV 2(SP) ,aSwR SAVE NEW SWR 
4113 017414 2706 000006 11$: ADD . 6, ziCLeAR UP STACK 
4114 017420 104401 001075 14%: TYPE eSCRLF 3.ECHO <CR> AND <L 
4115 017424 123727 1035 000001 CMPB SINTAG,#1 7 RE-ENABLE TTY KBD INTERRUPTS? 
4116 017432 001003 BNE 15$ :;BRANCH IF NOT 
4117 017434 012777 000100 161402 MOV #100,a$TKS 7 ;RE-ENABLE TTY KBD INTERRUPTS _ 
4118 017442 000002 15$: RT] 7 RETURN 
4119 017444 004737 016446 16$: JSR PC ,STYPEC 32ECHO CHAR 


eae 


4 
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| CJKDFA, Pll 
4120 017450 


4133 017516 
4134 017522 
4135 
4136 
4137 
4138 
4139 
4140 
6141 
4142 
4143 


s 
ald 
nr 
— 
oO 
ps 
~N 
= 
uw 
* 


4146 017524 


4168 017652 


000060 
000067 
000060 
000002 


000002 
177776 
001074 


000004 
161304 


161300 
177600 
000004 
161252 
161246 
177600 
000021 
000004 
000004 
000004 


000040 


000002 


000023 


000021 
000140 
000175 


000004 
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TTY INPUT ROUTINE 


CMP (SP) ,#60 sCHAR < Q? 

BLT 18$ oe pa IF YES 

CMP (SP) ,#67 +3 CHAR > 7? 

BGT 18$ RANCH IF YES 

BIC #60, (SP)+ ;;STRIP=-OFF ASCII 

TST 2(SP) :1S THIS THE FIRST CHAR 

BEQ 17$ * {BRANCH IF YES 

ASL (SP) :iNO. SHIFT PRESENT 

ASL (SP) sé CHAR OVER TO MAKE 

ASL (S?) ee ROOM FOR NEW ONE. 
17$: INC 2(SP) sKEEP COUNT OF CHAR 

BIS =2(SP), (SP) TISET IN NEW CHAR 

BR 7$ 3:GET THE NEXT ONE 
18$:. TYPE ,SQUES si TYPE ?<CR><LF> 

BR 20$ 77 SIMULATE CONTROL=U 
.DSABL LSB 


; REE EEE REE REE KEKEH KKK EEK ee 


[*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


3*CALL: 
:* RDCHR : INPUT A SINGLE CHARACTER FROM THE TTY 
te RETURN HERE - “CHARACTER IS ON THE STACK 
:* + OWITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,-(SP) ::PUSH DOWN THE PC 
_ MOV 4(SP) ,2(SP) +:SAVE THE PS 
1$: TSTB asTks ;iWALT FOR 
_BPLso1$ ‘A CHARACTER 
MOVB = a$TKB, 4 (SP) ‘:READ THE TTY 
BIC #*(<177>,4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP) #2 ::I1S IT A CONTROL=S? 
BNE 3$ BRANCH IF NO 
2%: TSTB = @STKS + WAIT FOR A CHARACTER 
BPL 2$ ;:LOOP UNTIL ITS THERE 
MOVB = a$TKB, -(SP) “GET CHARACTER 
BIC #*(177, (SP) ‘tMAKE IT 7-BIT ASCII 
CMP (SP) 4,421 ::1S IT A CONTROL-9? . 
BNE 2$ *:]F NOT DISCARD IT 
BR 1$ ::YES, RESUME 
3$: CMP 4 (SP) ,#SXON *:1S IT A RANDOM XON? s RANOO1 
BEQ 1$ BRANCH IF YES * RANOO1 
CMP 4(SP) #140 t:1S IT UPPER CASE? 
BLT 4$ + BRANCH IF YES 
CMP 4(SP) ,#175 ii1S 11 A SPECIAL CHAR? 
BGT 4$ + :BRANCH IF YES 
BIC #40,4(SP) *:MAKE IT UPPER CASE 
4$: RTI ‘GO BACK TO USER 
eneereyerreereerrererrrerrvrstiiversrirrttrtter titi ttt tei tii h 
zSTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 
; Lis 
3* RDL IN : INPUT A STRING FROM THE TTY 
ie RETURN HERE :ZADDRE SS OF FIRST CHARACTER WILL BE ON THE STACK 


:* : TERMINATOR WILL BE A BYTE OF ALL 0° S 


SEQ 0084 


| CJKDFAO 11/26 OPTIONS DIAGNOSTIC 
19=MAR=81 


| CIKDFA,PT 
017654 


020022 





R=Sk 


036420 


14:27 


017762 
017772 


177777 
001076 


000004 


017762 


005015 


047040 
000040 


000002 
000004 


000 
000012 
020122 


053505 


MACY11 30A(1052) 


H 
19=MAR=81 


TTY INPUT ROUTINE 


$RDLIN: 
1$: 


2$: 


10$: 
4%: 
3$: 


_ O$: 


$TTYIN: . 
SCNTLU: . 
$CNILG: . 


$SMSWR: 
$MNEW : 


MOV 
M 


-ASCIZ 
-ASCIZ 


R3,-(SP) 
@$TTYIN,R3 
capes 


(SP) +, (R3) 
#177,(R3) 


3 

, SQUES 

1$ 

(R3) ,9$ 
#15,(R3)+ 
2$ 


#STTYIN,4(SP) 


7*U/<15><12> 
/*G/<15><12> 


7 
14: 


<15><12>/SWR = 


/ NEW = 


27 PAGE 85 


Zs SAVE R3 
;;GET ADDRESS 
; SBUFFER FULL? 
: BR IF YES 
:GO READ ONE CHARACTER FROM THE TTY 
33GET CHARACTER 
31S IT A RUBOUT 
ii SKIP IF NOT 
TYPE A sit sl 
£2 CLEAR THE BUFFER AND LOOP 
;ECHO THE CHARACTER 


3:CHECK FOR RETURN 
;zLOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
TERESTORE R3 
+ ¢ADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII CHARACTER ON IT 


3; sRETU 

£2 STORAGE FOR ASCII CHAR. TO TYPE 
3 TERMINATOR 

;sRESERVE 8 BYTES FOR TTY INPUT 

2 CONTR a 

F, ; * CONTROL 'G' 


SEQ 0085 


NY 


be ee ee ae ae Ty 


. 9 
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| 4207 
| 4208 
| rit .SBTTL TRAP DECODER 
4211 : TTL LLL deleledeteledabaledaiataleisteiaiatataheiatieiaisialedeiahelaletieicbeiaicateiahichelpinbialetaieietnbeleiote! 
4212 ;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘*TRAP’’ INSTRUCTION 
4213 -*#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
4214 + #OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
my $F :*GO TO THAT ROUTINE. 
4 
4217 020026 010046 $TRAP: MOV RO,-(SP) 7 SAVE RO. 
4218 0166 000002 MOV 2(SP) ,RO 2 3GET TRAP ADDRESS 
4219 020034 005740 TST —  =(RO) KUP BY 2 
4220 020036 111000 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
4221. 020040 006300 ASL RO ; :POSITION FOR INDEXING 
£222 020042 016000 020062 MOV $TRPAD (RO) ,RO : INDEX TO TABLE 
4228 020046 000200 RTS RO  }HGO TO ROUTINE 
4225 
$s5$ . te a i 77 THIS IS USE TO HANDLE THE ““GETPRI'' MACRO 
4228 020050 011646 — $TRAP2: MOV (SP) ,-(SP) : :MOVE THE PC DOWN 
4229 020052 016666 000004 000002 MOV 4(SP),2(SP) : MOVE THE PSW DOWN 
ose 020060 000002 RTI : RESTORE THE PSW 
rei) .SBTTL TRAP TABLE 
4234 ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
4235 + *BY THE ‘'TRAP*’’ INSTRUCTION. 
4236 
4237 F ROUTINE 
4238 | eee 
4239 020062 020050 $TRPAD: .WORD  $TRAP2 
4240 020064 016234 $TYPE si CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
4241 020066 016614 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
4242 020070 016570 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
4243 020072 016630 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
esas 020074 017016 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
ray 020076 017312 . $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOF T=SWR SETTING 
4248 020100 017242 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT~SWR 
4249 020102 017524 $RDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
ac20 020104 017654 $RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


rim 4 
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.SBTTL ECHO TEST 

i WTTTTITITITITITI TTL TLL LLL LL LLL 
z*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 
[*ON EITHER SLU1 OR SLU2. DEFAULT IS THE CONSOLE DEVICE SLUT. 
:*THE TEST IS HALTED BY TYPING A CONTROL~C 
:*TEST CAN BE RESTAR™’D AFTER HALTING BY JUST CONTINUING 


eRe Ree REAR EERE R TERE E RARER RRR R ERR ERE ERR RR RE ERE 


020106 012737 000176 001040 Eto: MOV ASWREG, SWR :SET UP FOR SOFTWARE SWITCH REGISTER 
020114 012737 000174 001042 MOV #DISPREG, DISPLAY ‘AND DISPLAY REGISTER 
020122 032777 000020 160710 BIT #BiT4, aSwR “CHECK IF BIT4 SET IN SWITCH REG 
020130 001403 BEQ 1$ ‘IF NOT THEN SELECT SLU1 
020132 012703 002770 MOV ARCSR, R3 ‘IF BITG SET THEN SELECT SiU2 
020136 000402 BR 
020140 012703 003000 1$: MOV ACRCSR, R3 SSELECT SLU1 (THIS IS DEFAULT DEVICE) 
020144 000005 2$: RESET :CLEAR EVERYTHING 
020146 112773 000052 000006 MOVB = #"* @6(R3) ‘TRANSMIT PROMPT ''s'* 
020154 105773 000000 3$: TSTB. ~—s_ @(R’3) ‘WAIT FOR INPUT 
020160 10037 BPL 3$ 
020162 117373 000002 000006 _ MOVB  a2(R3),a6(R3)  ;ECHO INPUT 
620170 017300 000002 MOV @2(R3).RO ‘STORE I 
020174 100023 BPL 6$ ‘BR IF how NOT SET 
020176 052701 010000 BIS #B1T12,R1 ‘SET PARITY ERROR TEST MASK 
020202 030100 BIT R1,RO ;CHECK FOR PARITY ERROR FLAG 
020204 001403 BEQ 4$ ‘BR IF NOT SET 
020206 004737 020270 JSR PC MSG ‘REPORT PARITY ERROR 
020212 020316 MPAR 
020214 006301 4$: ASL R1 ‘ :SHIFT MASK TO TEST ‘‘FR'’ FLAG 
020216 030100 BIT R1,RO 3; TEST FOR FRAMING ERROR FLAG 
020220 001403 BEQ 5$ ‘BR IF NOT SET 
020222 004737 020270 JSR PC MSG *REPSORT FRAMING ERROR 
020226 020327 MFR 
020230 006301. 5$: ASL R1 :SHIFT MASK TO TEST ‘‘OR'' FLAG 
020232 030100 BIT R1,RO ; TEST FOR OVERFLOW ERROR 
020234 001403 | BEQ 6$ ‘BR IF NOT SET 
020236 004737 020270 JSR PC MSG ‘REPORT OVERFLOW ERROR 
020242 020341 MOR 
020244 042700 000200 6%: BIC #B1T7,RO :CLEAR ANY PARITY BIT 
020250 022700 000003 CMP #3,RO ‘WAS INPUT gSONTROL- C 
020254 001337 BNE 3$ ‘BR IF IS N 
020256 004737 020270 JSR PC MSG ‘REPORT SROGRAM STOP 
020262 020354 MSTOP 
020264 000000 HALT sEND OF TEST HALT 
020266 000707 BR ECHO . ‘AFTER END OF TEST HALT 
+ PRESS CONTINUE TO RESTART ECHO TEST 
020270 013600 MSG: MOV a(sP)+,RO ;PICK UP sy POINTER 
020272 062746 000002 ADD #2,-(SP) ‘ADJUST RETURN PC 
020276 105773 000004 WAIT: TSTB a4(R3) ‘WAIT FOR xMiT DONE 
020302 100375 - BPL WAIT 
020304 112073 000006 MOVB _— (RO) +, @6(R3) :SEND CHARACTER 
020310 105710 _- TSTB (RO) ‘1S THIS END OF MESSAGE? 
020312 001371 BNE WAIT ‘BR IF NOT 
020314 000207 RTS PC RETURN 


020316 005015 040520 044522 MPAR: .ASCIZ <CR><LF>/PARITY/ 
020324 054524 000 





| kK 7 
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4308 rated 015 043012 040522 MFR: eASCIZ = <CR><LF>/FRAMING/ 
4309 0203 044515 043516 00 
4310 020341 015 047412 042526 MOR: eASCIZ <CR><LF>/OVERFLOW/ 
4311 020346 043122 047514 000127 
123 050117 MSTOP: .ASCIZ <CR><LF>/STOP/ 


4312 920354 005015 052 
4313 020362 000 





“SEQ 0088 — 























Ye, 
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CJKDFA.P11. 19=MAR=81 14:27 ECHO TEST | SEQ 0089 
4314 | 
4315 
4316 020364 EVEN 
4318 .SBTTL TERMINAL OUTPUT TEST 
4320 HEE SIE IIIISIISIUUIIIISIISIISEIIISO OOS IN II Sn npr ni init ititint 
4321 :*THIS ROUTINE silt OUTPUT ALL WRITABLE CHARACTERS FOR THE 
4322 te THE OCTAL CODE 040 <=> 377 
4323 +*32 CHAR DARAC TERS” ARE PRINTED ON EACH LINE 
4324 j THE PATTERN IS REPEATED EVERY THREE LINES 
1356 : erpereierereerrrrertrrrrtrrtrerttttitttit ttt titre eerie 


4327 

4328 020364 012737 000176 001040 OUTTST: MOV ASWREG, SWR SET UP FOR SOFTWARE SWITCH REGISTER 
4329 020372 012737 000174 001042 MOV #DISPREG,DISPLAY SAND DISPLAY REGISTER 

4330 020400 032777 000020 160432 BIT #BIT4, ASWR CHECK IF BIT4 SET “ SWITCH REG 
4331 020406 001403 BEQ 1$ 7IF NOT THEN SELECT SLU1 

4332 020410 012703 002770 MOV ARCSR, R3 7IF BIT4 SET THEN SELECT SLU2 

4333 020414 000402 BR $ 

4334 020416 012703 003000 . wee MOV ACRCSR, R3 SELECT SLU1 (THIS IS DEFAULT DEVICE) 
4335 020422 000005 2$: RESET :CLEAR THE WORLD . 

4336 020424 012701 000040 3$: MOV #40,R1 [LOAD FIRST WRITABLE CHARACTER 

4337 020430 012700 000040 4$: MOV #40,R0 ;LOAD CHAR COUNT PER LINE 

4338 020434 105773 000004 5$: TSTB a4 (R3) ;WAIT FOR DONE 

4339 020440 100375 BPL 5$ 

4340 020442 010173 000006 MOV R1,@6(R3) ; TRANSMIT A CHARACTER 

4341 020446 105201 INCB R1 S INCREMENT CHARACTER CODE 

4342 020450 005300 DEC RO :DECREMENT CHAR COUNT 

4343 020452 001370 BNE 5$ BR IF LINE NOT COMPLETE 

eet 020454 004737 020270 JSR PC .MSG  SSUE CR,LINE FEED 

4346 020460 001075 $CRLF 

4347 020462 105773 000000 TSTB a(R3) zANY CHARACTER RECEIVED? 

4348 020466 100404 BMI 6$ ; BR IF YES 

4349 020470 032701 000200 BIT ABIT7,R1 aise ONE PASS OF WRITABLE CHARACTERS? 
4350 020474 001353 BNE 3$ ;BR YES 

oes 020476 000754 BR 4$ 7 IF NOT WRITE NEXT LINE 

4353 020500 005073 000002 6$: CLR a2(R3) CLEAR RECEIVER 

4354 020504 000000 HALT T 


EST 
000726 ; BR OUTTST “RESTART TEST IF CONTINUED 
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CJKDFA.P11 19-MAR-81 TERMINAL OUTPUT TE SEQ 0090 | 
ny 
4358 020510 046123 030525 052040 EM5: eASCIZ /SLU1 TCSR DONE NOT SET WITH RESET/ 

4359 020516 051503 020122 047504 
020524 042516 047040 052117 
4361 020532 051440 052105 053440 
4362 020540 052111 020110 042522 
4363 020546 042523 000124 
020552 046123 


4364 030525 051040 EMé6: eASCIZ /SLU1 RCSR DID NOT RETURN SSYNC/ 
4365 020560 051503 020122 044504 

4366 020566 020104 047516 020124 

4367 020574 042522 052524 047122 

4368 051440 054523 041516 


052514 020061 EM7: -ASCIZ /SLU1 RBUF DID NOT RETURN SSYNC/ 
043125 042040 
051523 047131 
4376 020650 040503 020116 047516 EM11:  .ASCIZ /CAN NOT SET BIT2 OF SLU TCSR/ 





4380 
4381 020706 ats 4 042523 020124 EM13:  .ASCIZ /RESET DID NOT CLEAR BIT2 OF SLUT TCSR/ 


7 020106 
020744 030525 052040 051503 
000122 


4388 020754 044502 033124 047440 EM14: .ASCIZ /BIT6 OF SLUI TCSR NOT CLEAR AFTER RESET/ | 
eo 020762 020106 046123 030525 | 
| 
| 


94 
rh 4 021024 046123 030525 054040 €M15: .ASCIZ /SLU1 XMIT INTERRUPTED WITH PRIORITY 7/ 


4 
4400 021062 pats 052111 020131 
4402 021072 040503 020116 047516 EM16:  .ASCIZ /CAN NOT SET BIT6 OF SLU1 TCSR/ 


4404 06 044502 033124 047440 
4405 021114 020106 046123 030525 
4406 021122 052040 051503 000122 
4407 021130 040503 020116 047516 EM17:  .ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 TCSR/ 
4408 021136 020124 046103 040505 
4409 021144 020122 044502 033124 
4410 021152 047440 020106 046123 
4411 021160 030525 052040 051503 
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021166 000 
EM20:  .ASCIZ /RESET DID NOT CLEAR BIT6 OF SLUT TCSR/ 


OonMnNo—wv 
nn & 


-ASCIZ /BIT6 OF SLUT RCSR NOT CLEAR AFTER RESFT/ 


+O 
a 
ao 
o 
w 
—_ 
wi 
on 
WN 
RAR 
oS 
— 
one 
WAS WW 
mn 
5 


6123 030525 051040 EM22: .ASCIZ /SLU1 RCVR INTERRUPT WITH PRIORITY 7/ 


1 000067 
OS a8 040503 020116 047516 EM23:  .ASCIZ /CAN NOT SET BIT6 OF SLUT RCSR/ 


021410 040503 020116 ot BS | EM24: .ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 RCSR/ 


02 
021440 Paget 051040 051503 
021450 040503 gee ne 047516 EM25:  .ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 RCSR WITH RESET/ 


021506 
4450 021514 oie. 051505 052105 


4452 021523 123 052514 020061 EM26: .ASCIZ /SLU1 RECEIVER DONE NEVER SET/ 
4453 Seto 042522 oat at: 053111 


4454 36 051105 042040 047117 
4455 021544 020105 04251 
4456 021552 020122 042523 000124 
4457 021560 042522 042523 020124 EM27:  .ASCIZ /RESET DID NOT CLEAR SLU1 RCVR DONE/ 
4458 021566 044504 020104 047516 
4459 021574 020124 046103 0405 
4460 021602 020122 046123 030525 
4461 021610 051040 053103 020122 
021616 047504 042516 — 000 
021623 122 060505 044504 EM30:  .ASCIZ /READING SLU? RBUF DID NOT CLEAR RCVR DONE/ 
4464 021630 043516 051440 052514 
4465 021636 020061 041122 043125 
4466 021644 042040 042111 047040 
4467 021652 052117 041440 042514 
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4468 021660 051101 051040 053103 


4459 thes wae 047504 042516 
021675 123 052514 020062 EM31:  .ASCIZ /SLU2 TCSR DID NOT RETURN SSYNC/ 
021702 041524 051123 042040 
021710 042111 047040 052117 
021716 051040 052105 051125 
021724 020116 0515 047131 
021732 00010 
734 046123 0311 052040 EM32:  .ASCIZ /S.U2 TBUF DID NOT RETURN SSYNC/ 
021742 052502 0201 


041516 
021773 123 052514 020062 EM33: .ASCIZ /SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL/ 


022036 ofS. 052506 046114 
022045 123 052514 020062 EM34: .ASCIZ /SLU2 TCSR DONE NOT SET AFTER TRANSMIT/ 


022102 051124 wel) 046523 

022113 123 052514 020062 EM35: .ASCIZ /SLU2 TCSR DONE NOT SET WITH RESET/ 
000 

022155 123 052514 020062 EM36:  .ASCIZ /SLU2 RCSR DID NOT RETURN SSYNC/ 


2204 020116 051523 047131 
022214 046123 031125 051040 EM37: .ASCIZ /SLU2 RBUF DID NOT RETURN SSYNC/ 


022 
022244 051440 054523 041516 
022253 102 052111 020060 EM40: .ASCIZ /BITO OF SLU2 TCSR NOT CLEAR AFTER RESE*/ 


000 
055323 03 047101 047040 EM41:  .ASCIZ /CAN NOT SET BITO OF SLU2 TCSR/ 








CJKDFA.P11 


022330 


19=MAR=81 
052117 


041524 
047101 


0 
051101 


14 
041524 


041524 
020066 


054524 
047040 


051123 
047040 


041524 
052105 


041524 
020066 


040440 


MACY11 30A(1052) 
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TERMINAL OUTPUT TEST 


EM42: 


EM43: 


EM44: 


EM45: 


EM46: 


EM47: 


EM50: 


EM51: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/CAN NOT CLEAR BITO OF SLU2 TCSR/ 


/RESET DID NOT CLEAR BITO OF SLU2 TCSR/ 
/BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 
/SLU2 XMIT INTERRUPTED WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF SLU2 TCSR/ 
/CAN NOT CLEAR BIT6 OF SLU2 TCSR/ 


/RESET DID NOT CLEAR BIT6 OF SLU2 TCSR/ 


/B1T6 OF SLU2 RCSR NOT CLEAR AFTER RESET/ 


SEQ 0093 





CJKDFAO 11/24 OPTIONS DI 


CJKDFA.P11 


023462 


19=MAR=81 


042514 


041522 
047101 


042522 
031125 


054523 
052111. 


051101 


033440 
047040 


051123 
047040 


041522 


047040 


042523 
051040 


041516 
020066 


040440 © 
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TERMINAL OUTPUT TEST 


EMS2: 


EM53: 
EM54: 


EM55: 


EM56: 


EM57: 


EM60: 


EM61: 


EM62: 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASC1Z 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


/SLU2 RCVR INTERRUPT WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF SLU2 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU2 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET/ 


/SLU2 RECEIVER DONE NEVER SET/. 


/RESET DID NOT CLEAR SLU2 RCVR DONE/ 


/READING SLU2 RBUF DID NOT CLEAR RCVR DONE/ 


/LKS DID NOT RETURN SSYNC/ 


/B1T6 OF LKS NOT CLEAR AFTER RESET/ 


SEQ 0094 


CJKDFAO 11/24 9 


CJKDFA.P11 


024132 


PTIONS DIAGNOSTIC 
9-MAR-81 


046123 


14: 


046040 


047101 


020124 
052111 


044124 
052514 


030525 


051040 
00 


033440 
047040 


051513 
047040 


046040 
052105 


046040 


020067 
051513 


051505 
047040 


046040 
020067 


042523 
047111 


051105 
020061 


054040 


MACY11 30A(1052) 
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TERMINAL OUTPUT TEST 


EM63: 


EM64: 


EM65: 


EM66: 


EM67: 


EM70: 


EM71: 


EM72: 


EM74: 


EM75: 


-ASCIZ 


LASCI2 


-ASC12 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


/LKS INTERRUPT WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF LKS/ 
/CAN NOT CLEAR BIT6 OF LKS/ 


/RESET DID NOT CLEAR BIT6 OF LKS/ 
/BIT7 OF LKS NOT SET AFTER RESET/ 


/CAN NOT CLEAR BIT7 OF LKS/ 
/BIT7 OF LKS DOES NOT SET/ 


/WRITING TO ONE INTERNAL ADDRESS MODIFIED ANOTHER/ 


/SLU1 XMIT INTERRUPTS WHEN DISABLED/ 


/SLU1 XMIT DID NOT INTERRUPT/ 


SEQ 0095 


é a. 
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~ CJKDFAO 11724 OPTIONS ers 
4:27 TERMINAL OUTPUT TEST 


CUKDFA.P11 — 19=MAR=81 SEQ 0096 


| 
4694 
4695 
4696 
4697 
4698 
4699 
. 4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4708 
4709 


024140 


024626 


044515 


051524 


020124 


050125 
042101 


053440 


044504 
020124 


- 051122 


054040 


052111 
054040 


042514 
020061 


042524 
047111 


042514 
020061 


052111 


EM76: 


EM77: 


EM100: 


EM101: 


EM102: 


EM103: 


EM104: 


—EM105: 


EM106: 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


/SLU1 XMIT INTERRUPT AT PRIORITY 7/ 
/SLU1 XMIT INTERRUPTS WITH ENABLE CLEAR/ 
/SLU1 XMIT DID NOT INTERRUPT/ 


/SLU1 XMIT RE=INTERRUPTED/ 


/LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT/ 


/SLU1 RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU1 RCVR DID NOT INTERRUPT/ 


/SLU1 RCVR INTERRUPTS AT PRIORITY 7/ 


/SLU1 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


| CUKDFAO 11/26 OPTIONS 
CJKDFA.PT1 


024634 


02 
025314 


19=MAR= 
020110 


041440 


oS 


ee ere 
Mm—Oononrn & ror 
WU UINIWINIO — POW 


052522 


052116 
052120 


042524 


051122 
023440 


051440 
020061 


043501 


020101 
051101 
047522 


054040 
047111 


051105 
000 
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TERMINAL OUTPUT TEST 


EM107: .ASCIZ /SLUT RCVR DID NOT INTERRUPT/ 


—EM110: .ASCIZ /SLU1 RECEIVER RE-INTERRUPTED/ 


EM111: .ASCIZ /SLU1 READING RBUF DID NOT CLEAR INTERRUPT/ 


EM112: .ASCIZ /RESET DID NOT CLEAR SLU1 RCVR INTERRUPT/ 
—EM113: .ASCIZ /SLU1 "OR" FLAG DID NOT SET/ 

EM114: .ASCIZ /SLU1 "ERROR" NOT SET WITH ‘OR* FLAG/ 
—EM115: .ASCIZ /DATA COMPARE ERROR/ 

EM116: .ASCIZ /SLU2 XMIT INTERRUPTS WHEN DISABLED/ 
EM117: 


eASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 


SEQ 0097 


CJKDFAO 11/24 OPTIONS DI 
CJKDFA.P11 


1 





9-MAR=81 


042440 


052120 
040517 


052522 
052514 


040516 


051122 
054040 


052120 
020062 


046103 
051040 


051192 


051040 


046102 


MACY11 30A(1052) 
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TERMINAL OUTPUT TEST 


—M120: 


EM121: 


EM122: 


EM123: 


EM124: 


EM125: 


EM126: 


EM127: 


EM130: 


-ASC1Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/SLU2 XMIT INTERRUPT AT PRIORITY 7/ 


/SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR/ 


/SLU2 XMIT DID NOT INTERRUPT/ 
/SLU2 XMIT RE-INTERRUPTED/ 


/LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT/ 


/SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU2 RCVR DID NOT INTERRUPT/ 


/SLU2 RCVR INTERRUPTS AT PRIORITY 7/ 


‘/SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


SEQ 0098 


ecienis biti, 


Se te ee. 


1 8 
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020105 046103 040505 
000122 


026020 046123 031125 051040 €M131: .ASCIZ /SLU2 RCVR DID NOT INTERRUPT/ 
026026 Etat pee se 044504 


20 
026042 047111 Baseee 051122 
yaa te! Beeleg 031125 051040 EM132: .ASCIZ /SLU2 RECEIVER RE-INTERRUPTED/ 


a 


2105 000 
026111 123 052514 020062 £&M133: .ASCiZ /SLU2 READING RBUF DID NOT CLEAR INTERRUPT/ 


026154 aah 4 052522 052120 
026163 122 051505 052105 €M134: .ASCIZ /RESET DID NOT CLEAR SLU2 RCVR INTERRUPT/ 


000 
026233 123 052514 020062 EM135: .ASCIZ /SLU2 ‘OR' FLAG DID NOT SET/ 


026254 020104 047516 020124 
6266 046123 031125 023440 €M136: .ASCIZ /SLU2 ‘ERROR’ NOT SET WITH ‘OR® FLAG/ 


egret 046123 031125 041040 £M137: .ASCIZ /SLU2 BREAK DID NOT TRANSMIT ALL ZEROES/ 


02 
026370 020114 saat, 047522 
026401 102 042522 045501 £M140: .ASCIZ /BREAK DID NOT SET FRAMING ERROR/ 


026436 
026441 123 052514 020062 £M141: .ASCIZ /SLU2 ‘ERROR' NOT SET WITH 'FR* FLAG/ 


026470 044124 023440 051106 
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026476 020047 046106 043501 


026504 000 

026505 104 052101 020101 —M142: .ASCIZ /DATA COMPARE ERROR WITH CABLE/ P 
026512 047503 050115 051101 

026520 020105 051105 0475 

026526 020122 044527 044124 

Bseez3 04 041101 042514 

026543 041524 044440 €M143: .ASCIZ /RTC INTERRUPT AT PRIORITY 7/ 
026550 052116 051105 052522 

026556 052120 040440 020124 

026564 051120 047511 044522 

026572. 054524 033440 0 


00 
026577 122 041524 044440 EM144: .ASCIZ /RTC INTERRUPTS WHEN DISABLED/ 


026634 052122 020103 047111 €M145: .ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 


ascere 047516 020124 041517 
026670 052122 020103 047111 EM146: .ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 


0267 

026712 047516 020124 041517 

026724 052122 020103 047504 EM147: .ASCIZ /RTC DOUBLE INTERRUPT/ 
026732 041125 042514 044440 

026740 052116 eat 4 052522 


026751 122 051505 052105 €M150: .ASCIZ /RESET DID NOT CLEAR RTC INTERRUPT/ | 
027006 0 
027013 122 041524 044440 EM151: .ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS/ 


4960 BS bre Oe eete 047440 020106 
4962 027070 Beis 041517 020113 EM152: .ASCIZ /CLOCK REPEATABILITY ERROR/ 


4964 
bad 027112 SaaED 051105 047522 
4967 027122 046123 030525 051040 EM153: .ASCIZ /SLU1 RECEIVER STATUS ERROR/ 


4970 027144 051525 042440 051122 
027152 051117 000 





CJKDFAO 11/24 OP 


CJKDFA.P11 


027155 


027430 
027431 
0 


027614 


19=MAR 


cS 
606 020040 


050040 


TIONS DIAGNOSTIC 
81 14:27 


044503 
047503 


044503 
050101 
044103 


051505 


020103 


051105 
051122 


042523 


041440 
051105 


021524 
051122 
052049 


020043 
020122 
041522 


021524 
051122 
051040 


020043 
020122 
041124 


021524 
051122 
046040 


021524 
051122 


043440 © 
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VASCIZ /SLU2 RECEIVER STATUS ERROR/ 


—EM154: 


EM155: 


EM160: 


EM161: 


DH5: 


DH6: 


DH7: 


DH32: 


DH61: 


DH72: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


“ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


7INCORRECT RECEIVE COUNT SLUT/ 


/SLU1 DATA COMPARE ERROR IN EXERCISER/ 


7INCORRECT RECEIVE COUNT SLU2/ 


/SLU2 DATA COMPARE ERROR IN EXERCISER/ 


/TRAP CATCHER/ 


/TEST# 


/TEST# 


/TEST# 


/TESTA 


/TESTA 


/TEST# 


ERR PC 
ERR PC 
ERR PC 
ERR PC 
ERR * 


ERR PC 


TCSR/ 


RCSR/ 


RBUF / 


TBUF / 


LKS/ 


GDADR 


BDADR GDDAT BDDAT/ 


SEQ 0101 
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CJKDFAO 11/24 OPTIONS DIAGNOSTIC 
CJKDFA.P11 19=MAR~81 14:27 TERMINAL OUTPUT TEST SEQ 0102 
5028 027622 040504 051104 020040 
50 027630 041040 040504 051104 
0 027636 020040 043440 042104 
5031 027644 052101 020040 041040 
5032 027652 042104 052101 000 
5033 027657 124 051505 021524 DH115: .ASCIZ /TEST# ERR PC RCSR GOOD BAD/ 
0 027664 020040 042440 051122 
5035 027672 050040 020103 051040 
50 027700 051503 020122 020040 
5037 027706 3440 047517 020104 
50 027714 020040 041040 042101 
5039 027722 000 


040 027723 124 eatet3 021524 DH137: .ASCIZ /TEST# ERR PC RCSR DATA/ 


00010 
5045 Oso ree ei tae) 052123 020043 DH142: .ASCIZ /TEST# ERR PC GOOD BAD/ 


0040 
5048 030002 042117 Beta 020040 
5050 030014 042524 052123 020043 DH152: .ASCIZ /TEST# ERR PC LKS CNT1 CNT2/ 
03002 0040 


030044 
5055 030052 020040 047103 031124 
30060 090 
5057 030061 124 051505 021524 DH155: .ASCIZ /TEST# ERR PC RCSR TRANS = RCV/ 


05 
5062 030116 020040 051040 053103 
sated 124 051505 021524 DH161: .ASCIZ /TEST# ERR PC RCSR OLDPC TRAP ADR/ 


9 030162 0 052040 040522 
5070 030170 020120 042101 000122 
5071 030176 005015 045103 0421135 Mi:. eASCIZ <CR><LF>/CJKDF-A/ 
5072 030204 026506 000101 
a 030210 200 M2: eASCII <CRLF> 
5075 030212 -EVEN 
5076 030212 001104 001016 003004 DTS: .WORD $TESTN,SERRPC,CTCSR,0 
5077 030220 000000 : 
5078 030222 001104 001016 003000 DTé6: -WORD $TESTN,SERRPC,CRCSR,0 
5079 030230 000000 
5080 030232 001104 001016 003002 DT7: -WORD $TESTN,$ERRPC,CRBUF ,0 
5081 030240 000000 


5082 030242 001104 001016 002774 DT31: .WORD $TESTN,SERRPC,TCSR,0 
5083 030250 000000 
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CJKDFA.P11 19=MAR=81 14:27 TERMINAL OUTPUT TEST SEQ 0103 © 
030252 001104 001016 002776 DT32: .WORD $TESTN,SERRPC,TBUF ,0 ; 
5085 030260 000000 ; 


030262 001104 001016 002770 DT36: .WORD $TESTN,SERRPC,RCSR,O 


Oo 
x 
3 


388 930972 001104 001016 002772 DT37: .WORD $TESTN,SERRPC,RBUF ,0 
030302 001104 001016 003010 DT61: WORD STESTN, SERRPC,LKS,0O 
5091 030310 000000 
5092 030312 001104 001016 001020 DT72: ~ WORD STESTN, SERRPC ,, $GDADR, $BDADR, $GDDAT , SBDDAT ,0 
320 001022 001024 001026 


o 
. 
88 


001104 001016 003000 DT115: .WORD $TESTN,SERRPC,CRCSR,$GDDAT ,$BDDAT ,0 
5096 0350336 001024 001026 0 
5097 030344 001104 001016 002770 DT137: .WORD $TESTN,SERRPC,RCSR,$BDDAT 0 
5098 030352 001026 000000 
5099 030356 001104 001016 001024 DT142: .WORD $TESTN,SERRPC,$GDDAT,SBDDAT,0 
5100 030 001026 000000 
5101 030370 001104 1016 003010 DT152: .WORD $TESTN,$ERRPC,LKS,FIRST,SECND,0 
. 5102 030376 013574 013576 
5103 €30404 001104 1016 003000 DT155: .WORD $TESTN,SERRPC,CRCSR,XMTCT1,RECCT1.0 
5104 030412 014726 014732 000000 
5105 030420 001104 001016: 002770 DT157: .WORD $TESTN,SERRPC,RCSR,XMTCT2,RECCT2,.0 
5106 030426 014730 014734 000000 
5107 030434 001104 001016 002770 DT161: .WORD $TESTN,SERRPC,RCSR,OLDPC ,BDVECT.0 
5108 030442 015114 015116 000000 
5109 030450 000200 BUF1:  .BLKW 200 7SLU1 INPUT BUFFER FOR BLAST TEST 
a1i9 031050 sis BUF 2: oy 200 :SLU2 INPIT BUFFER FOR BLAST TEST 
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SEQ 0104 


38184 3846 


VECT2= 000000 
BDVECT 015116 5107 
BITO = 000001 1633 1720 053 2054 2057 2058 2061 2062 71 2073 2075 
3070 3075 079 3089 3093 3349 3376 3451 469 


B1T00 = 000001 











. B 9 
CJKDFAO 11/24 OPTIONS DIAGNOSTIC MACY11 30A(1052) 19=MAR=81 14:27 PAGE 106 
CUKDFA.P11 19=MAR=81 14:27 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0105 


BITO! = 2 7918 801 

BITO2 = 7904 800 

BITOS = 000010 7894 799 

BITO4 = 7884 798 

BITOS = 7874 797 

B1T06 = 000100 7864 796 

BITO7 = 200 7854 795 

BITO8 = 000400 7844 794 

BITO9 = 001000 7834 793 3607 3746 a 

BIT1 = 000002 8014 1629 1938 2739 3382 3485 
BIT10 = 002000 782# 2683 3034 3087 

BIT11 = 0 7814 

BIT1l2 = 7804 4273 

BIT13 = 020000 779% §=3094 3591 

BIT14 = 040000 7784 2694 3042 3730 

BIT15 = 100000 777# = §=2699 3047 3099 

BIT2 = 8004 1632 1773 1774 1779 1780 1783 1784 1791 1793 1900 


2574 2593 2597 2630 2634 2660 2686 2693 2726 = 2729 3378 
3387-3443 
BIT3 = 000010 799% 1627 j 
BIT4 = 000020 7984 1624 4261 4330 
BITS = 000040 797# 1626 1627 3336 
BIT6 = 000100 7964 1680 1803 1808 ##=+%1818 +1819 1825 1826 1832 1834 1847 1852 
1863 1869 1870 1877 #4291879 2084 2089 2099 2100 2106 2107 2117 2119 
2132 «187, 's«a2147s 21482154 Ss 2155. 8166s 2168 = 22672 e252 be e626 
5270 «= 53279 -Ss«23281 33440 2347 2385 = 2398 «= 2403 2413 2420 2427 2445 2454 
5664 2678 2483 2491 2513 2514 2532 2538 2558 2566 2598 2609 2629 
5639 «3659 -«Ss(i66B)Si2743.~Ss« 2756s 2761~—Ss«2771~Ss 2778 =~ 2785S 2805 2814 = 824) 2843 
5848 2856 2876 2877 2892 2897 2914 2921 2948 2959 2978 2986 3011 
$019 «3156S si3179~Ss«3187~— 3210S 3228 «= 3248 )3=S 3255) 3279S 3286 = 3308 «= 3379 = 3380 
3384 3385 3389 3403 3426 3447 3448 3449 3453 3457 
BIT7 = 000200 53 5307, s«=2308~=—S—i2310S's«é2311,S's«i3110-Ss«3155 = 3178 ~=— 3209s 3247 = 3278 «= 3282 4288 
BIT8 = 00 794 
BIT9 = 001000 . 7934 
BLAST 013600 3147 33424 
BPT = 000003 822 
BPTVEC= 8094 
UF1 030450 3381 3412-3474 = «5109# 
BUF2 031050 3386 3490 51104 
CATCH 015070 833 35604 
CHECK1 014524 34694 
CHECK2 014604 347 34854 
CKSWR = 104407 36 3729 42484 
CMPARE 013532 332 33264 
T 06510 23174 
CONT41 012330 3066 ©: 30734 
014736 3365* 3396* 3445 3512m 
R= 717# 3909 3919 «=—4306 Ss 4308)=— 4310) 4312~—S 5077 
F 003002 1547# 1759 1925 2635 2694 2699 2718 3407 3409 3418 5080 
CRCSR 1546# 1744 1847* 1852 1862" 1863 1869* 1870 1877 1879 1896 1905 1912 
1923. 1927 .2514* +2521 «= 2532e «2538 = 2556 = 2558* = 2566" = 2595 2598* = 2609* = 2629 
2632 e639" 26598 e662 5668 2716 3380" 4265 4334 5078 5095 5103 


CRLF = 000200 7184 
CRPSW 003024 15604 2588 2590*  2610* 3369+ 


—— ye ee 
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CRVECT 003022 1559# 1848 1849* 1884* 2516 2517% 2531* 2541* 2552 2553* 2567* 2578* 2587 
ome 2589*  2605* 2616* 2627 2628* 2645* 2657 2658* 2675* 3359 3368*  3504* 
CTBUF 003006 15494 1662 1681* 1686% 1724* 1727* 1895*% 1922% 2484% 2487" 2520* 2555* 2594s 
2631* 2661* 2688* 2715* 3400* 
CTCSR 003004 15484 1645 1682 1687 1693 1725 1730 1773* 1774 1779* 1780 1783* 1784 


CTPSW 003030 15624 2447 2449% 2471*  3367* 


CTVECT 003026 15614 1804 1805* 1839* 2386 2387* 2397* 2405* 2416 2417* 2428% 2437* 2446 
: 2448* 2460* 2470" 2481 2482% 2497* 3358 3366*  3503* 

CWDONE 004602 18964 1899 

DDISP = 177570 7244 913 1597 


0 

DH137 = 027723 1446 50404 

DH142 =: 027760 1461 1511 1531 50454 

DH152 030014 1501 50504 

DH155 C3 1516 526 50574 

DH161 030125 1536 50644 

DH32 627530 1103 50174 

DHS 027431 1002 1020 1028 1033 1038 1043 1048 1053 1098 1108 1113 1118 1133 
1138 1143 1148 1153 1158 1163 1168 1173 1271 1276 1281 1286 1291 
1296 1301 1361 1366 1371 1376 1381 1386 1391 50054 

DH6 027456 1007 1058 1063 1068 1073 1078 1083 1088 1093 1123 1178 1183 1188 
1193 1198 1203 1208 1213 1306 1311 1316 1321 1326 1331 1336 1341 
17a ee 1396 1401 1406 1411 1416 1421 1426 1431 1436 1441 1451 

DH61 027555 1218 1223 1228 1233 1238 1243 1248 1253 1258 1466 1471 1476 1481 
1486 1491 1496 50214 

DH7 027503 1012 1128 50134 

DH72 027601 1263 50254 

DISPLA 001042 9134 1597 1605*  3586*  3757* 4260*  4329* 

DISPRE 000174 8434 1605 4260 4329 

DS = 177570 7234 912 1596 

DT115 30330 1357 1507 1522 50954 

DT137 =©©030344 1447 50974 

DT142 030356 1462 1512 1532 50994 

DT152 030370 1502 51014 

DT155 030404 1517 51034 

DT157 030420 1527 51054 

DT161 030434 1537 51074 

DT31 030242 1099 1109 1114 1119 1134 1139 1144 1149 1154 1159 1164 1169 1174 

1362 1367 1372 1377 1382 1387 1392 50824 

DT32 030252 1104 50844 

DT36 «=: 030262 1124 179 1184 1189 1194 1199 1204 1209 1214 1397 1402 1407 1412 
1417 1422 1427 1432 1437 1442 1457 50864 

D137 030272 1129 50884 

DTS 030212 1003 196) Ne 1034 1039 1044 1049 1054 1272 1277 1282 1287 1292 

DT6 030222 1008 1059 1064 1069 1074 1079 1084 1089 1094 1307 1312 1317 1322 

1327 1332 1337 1342 1347 1352 1452 50784 

DT61 030302 1219 1224 1229 1234 1239 1244 1249 1254 1259 1467 1472 1477 1482 
1487 492 1497 50904 

DT7 . 030232 1013 50804 
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030312 1264 50924 
020106 848 4259% 4294 
000030 8124 1581* 1582* 

24277 1290 47094 
024333 1295 47144 
024364 1300 47194 
024436 1305 47264 
024505 1310 47334 
024541 1315 47384 
024604 1320 47444 
024665 1325 47534 
020650 1019 43764 
024721 1330 47584 
024756 1335 47634 
025030 1340 47704 
025100 1345 4777# 
025133 1350 4782# 
025177 1355 47894 
025222 1360 47934 
C25265 1365 47994 
025321 1370 48044 
025363 1375 48104 
025432 1380 48174 
025466 1385 48224 
025517 1390 4827# 
025571 1395 48354 
025640 1400 48424 
025674 1405 48474 
20706 1027 43814 
025737 1410 48534 
026020 1415 48624 
026054 1420 48674 
026111 1425 48724 
026163 1430 48804 
026233 1435 48874 
026266 1440 48924 
026332 1445 48984 
020754 1032 43884 
026401 1450 49054 
026441 1455 49114 
026505 1460 49184 
026543 1465 49244 
026577 1470 49294 
026634 1475 49344 
026670 1480 49394 
026724 1485 49444 
021024 1037 43954 
026751 1490 49484 
027013 1495 49544 
027070 1500 4962# 
027122 1505 49674 
027155 1510 49724 
027210 1515 49774 
027245 1520 4982# 
027312 1525 4989# 
021072 1042 44024 
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027347 1530 49944 
027414 1535 50014 

21130 1047 44074 
021170 105244134 
021236 1057 44204 

1306 1062 44278 
021352 1067 44334 
021410 1072 44384 
021450 1077 44444 
021523 1082 44524 
021560 1087 44574 
021623 1092 44634 
021675 1097 44714 
021734 1102 4477 
021773 1107 44834 

22045 1112 44914 
022113 1117 4498 
022155 1122 45044 
022214 1127 4510# 
622253 1132 45164 
022323 1137-45234 
022361 1142 45298 
022421 1147 45354 
022467 1152 4542 
022537 1157 45498 
022605 1162 4556# 
022643 1167 4562# 
020510 1001. 43584 
022703 1172, 45684 
022751 117745758 
023021 1182 45824 

2306 1187 45894 
023123 1192  4595# 
023163 1197 = 46014 
023236 1202 4609" 
023273 1207 46144 
020552 1006  4364M 
023336 1212  4620# 
023410 1217 4627 
023441 1222 4632# 
023503 1227 46384 
023541 1232 4644 
023571 1237 46494 
023623 1242 46544 
023663 1247  4600# 
020611 1011 43704 
023723 1252  4666# 
023755 1257 46714 

24006 1262 46764 
024067 1270 4685 
024132 1275 46914 
024166 1280  4696M . 
024230 1285 4702 
000004 B05" 1 1595* 1606* 3735 3736" 3738* 37418 
014664 3486 


35014 
013574 3324* 3326 33404 5101 
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= weteee 4240 4241 4242 4243 4244 4246 4248 4249 4250 

GTSWR = 104406 1620 42464 

HT = 000011 7154 61 919 

1D 003700 1635 1694 17034 

OHAND 914400 3397 3404 3419 3427 34434 

IOTVEC= 000020 8104 1579* 1580* 

L = 000012 7164 3913 3919 4306 4308 4310 4312 5071 

LKS 003010 15504 2234 2247 2252 2262* 2263 2269* 2270 2279* 2281 2302 2307* 2308 
2310* 2311 2317 2350 155* 3156* 3157 3165* 3169 3178*  3179* 3180 3187* 
3209* 3210* 3211 3228% 3247* 3248* 3249 3255% 3278% 3279* 3280 3282*  3286* 
3308* 3312* 3313 3315* 3316 3319* 3389*  3449* 5090 5101 

LTCIT 012544 2741 31384 

LTCRT 006152 1940 22214 : 

MFR 020327 4282 43084 

020341 4287 43104 

MPAR 020316 4277 43064 

MSG 020270 - 4276 4281 4286 4291 42978 4344 

MSTOP 020354 4292 43124 

M1 030176 1710 50714 

M2 C30210 1712 50734 

OLDPC 015114 3563* 35674 5107 

OUTTST 020364 849 43284 4355 

PIRQ = 177772 7224 

PIRQVE= 000240 8164 

PRO = 000000 7394 

PR1 = 000040 7404 

PR2 = 000100 7414 $ 

PR3 = 000140 7424 

PR4 = 000200 7434 

PR5 = 000240 7444 

PR6 = 000300 _ 7454 

PR7 = 000340 7464 

PS = 177776 7194 720 2336* 3355*  3392*  3462* 

PSW = 177776 7204 

PWRVEC= 000024 8114 1585* 1586*  3674* 3675* 3684* 3692* 3701* 3702* 

RBUF 002772 15434 2039 2182* 2203 2212* 2216 2865 2982 3042 3047 3062 3073 3094 
3099 3126 3430 3432 3441 5088 

RCSR 002770 15424 2023 2132* 2137 2147* 2148 2154* 2155 2166* 2168 2185 2198 2214 


2217 2338 2339 2345 2877* 2883 2892* 2897" 2912 2914* 2921* 2946 2948* 
2959* 2978* 2980 2986* 3011* 3013 3019* 3060 3065 3091 3119 3385* 4263 


4332 50 5097 5105 5107 

RDCHR = 104410 4180 42494 

RDLIN = 104411 42504 

RECCT1 014732 3363* 3406* 3471 35104 5103 

RECCT2 014734 3364* 3429% 3487 35114 5105 

REC1 . 014210 3368 34064 

REC 014324 3372 34294 

RESVEC= 000010 80 

RPSW 003014 15564 2940 2942e 2960* 3373+ 

RTCPSW 003034. 15644 3152 3154* 3189* 3204 3206* 3230*  3375* 

RTCVT 003032 15634 2248 2249* 2286* 3151 3153* 3166* 3177* 3188* 3205 3205* 3218*  3229* 
3245 3246* 3261* 3276 3277*  3293* 3360 3374* 3505* 

RVECT 005012 1555#@ 2133 2134* 2173* 2878 2879* 2891* 2899* 2909 2910* 2922* 2931* 2939 
2941* 2955* 2966* 2976 2977+ 2992* 3009 3010" 3026* 3357 . 3372* 3502* 


SECND 013576 3333* 33414 5101 
SLUITIT 006700 23674 
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SLUZIT 010600 2378 2382 27324 
‘SLU2RT 004726 1680 1722 19314 
STACK = 001100 7104 
START 003036 847 15664 
STKLMT= 177774 7214 
SwR 001040 9124 1575 1596* 1598 1604* 1611* 1618 1624 1627 1630 2683 3034 3087 
iy 736 3591 =~. 3603 3607 3682 3694* 3730 3746 4075 4112* 4259* 4261 
’ 
SWREG 000176 8444 1604 1618 4075 4088 4759 4328 
SwO = 000001 7748 
= 000001 7644 774 
= 000002 7634 773 
= 000004 7624 772 
= 000010 7614 771 
= 000020 7604 770 
= 00004 7598 769 
= 000100 7584 768 
= 000200 7574 767 
= 000400 7564 766 
= C01000 7554 . 765 
= 002 7734 
= 002000 7544 
= 004000 7534 
= 010000 7524 
= 020000 7514 
= 04 7504 
= 100000 7498 
= 000004 772# 
= 000010 7714 
= 000020 7704 
= 000040 7694 
= 000100 7684 
= 000200 7674 
= 000400 7664 
w9 = 001 7654 ; 
E= 000014 8074 
F 002776 15454 1959 1976* 1981* 2003* 2006* 2184* 2213* 2849% 2852% 2882" 2911* 2945* 
2979* 3012* 3037* 3059% 3090* 3117" 3423* 5084 
002774 15444 1944 1977 1982 1986 2004 2009 2053* 2054 2057* 2058 2061* 2062 
2071* 2073 2075*  2084* 089 2099* 2100 .2106* 2107 2117* 2119 2743* 2746 
2756* 2761* 2771* 2776 2778* 2785* 2805* 2812 2814* 2824* 2843* 2848* 2850 
¢6 28° 2876* 3038 3063* 3070* 3075* 3079% 3089* 3093" 3384%  3426* 3448* 3457 
TICKER 014144 3374 33964 
= 000060 8144 
TOLER 013544 3328 33304 
003020 15584 807 2809* 2831* 3571* 
= 064 8154 
TRAPVE= 000034 8134 1583* 1584* 
TRIVEC= 000014 8084 
003450 1634 16414 3547 
TST10 4246 1792 18014 
004412 18454 
TST12 004556 18914 
TST13 004652 19184 
TST14 004726 | 1928 19364 ‘ 
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TST15 005002 19558 
TST16. 005042 19694 
TST17,—- 005134 1974 1987 1996# - 
TST2 003516 16584 
TST20 905214 2001 2010 = 20198 
TST21 005254 20354 
TST22 005314 20514 
TST23 005452 2069 2074 20824 
TST24 005634 21304 
TST25 006016 21804 
TST26 006110 22104 
TST27 006152 22264 
TST3 003564 16744 
TST30 006226 22454 
TST31 006410 2294H 
TST32 006524 2299 2318 2329# 
TST33 006700 2334 23724 
TST34 007046 24118 
TST35 7166 24434 
TST36. © C07322 24 76M 
TST37 7434 2509# 
TST4 «=: 003734 1700 17184 
TST4O 007614 25478 
TST41 007764 25844 
TST42 010134 26224 
TST43 ©-010256 2652m 
TS144 010372 26814 
TST45 010476 2684 2709M 
TST46. 010600 27378 
TST47 010722 27698 
TST5 012 1731 17404 
TST5O 011042 28034 
TST51 011176 28364 
TST52. 011340 2841 28744 
TST53. 011460 29054 
TST54 011576 29374 
TST55 011730 2972# 
TST56. «= 012034 29998 
TST57- 012160 4 30324 
TST6 004052 17554 
TST60 012246 30574 
TST61 012354 30854 
TST62 © 012446 3088 31084 
TST63 012544 3111 3130 4360-31434 
TST64 012766 31964 
TST65 013140 3201 . 32364 
TST66 013262 3241 32674 ° 
TST67 013416 33014 
TST? ~—- 004112 17718 
TST70 =.013600 3306 3337 33474 
TVECT 003016 9557" «=92085 «= 2086* «= 2124* «= 2744. 2 2745" = 2755* = .2763* = 2774 «= 2775" = 2786" = 2795* = 2806 
2808* 2820* 2830* 2846 2847* 2866* 3356 3370* 3501* - 
TYPDS = 104405 35360 42444 
TYPE = 104401 1709 ~=—s-‘1711 3534 3537 3594 3629 «36460 3648 ~—s 3651 3653s 3657S 36640—Ss«3 706 


3866 3979 4054 4086 4087 4090 4103 4114 4133 4184 4187 4191 42404 
TYPOC = 104402 3637 3661 4089 42414 
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TYPON = 104404 42438 
TYPOS = 104403 42428 
UNIQUE 524 2230 23248 
WAIT 020276 4299% & 4303 
WAITER 914500 3450 3455 3458 34624 
WAITIO 014140 33934 3394 
WDONE 006040 21854 2188 
WRPSW 015056 1806 1850 2087 2135 2250 2390 2414 2429 2450 2461 2479 2488 2518 


2550 2568 2591 2606 2625 2636 2655 2665 2748 2772 2787 2810 2821 
2844 2853 2880 2907 2923 2943 2956 $253 2983 3007 3016 3149 3167 


3207, 3219S 3243) = 3252S 3274S 3283 3294 r 
KMIT] 014154 3366 430-3398 
KMIT2 014270 3370 6.34214 
KMTCT1 014726 3361% 3398* 3401 3471 3476 35084 5103 
KMTCT2 014730 3362" 3421" 3424 «= 3487 = 3492) 3509 = 5105 
$APTHD 00 871 8774 
SASTAT= teeeee U 1648 1665 1689 1697 1776 1786 
$ATYC 016012 3768 37708 
$ATY1 015766 3766" 
$ATY3 015774 37674 3851 : 
$ATY4 016004 1648 1665 1689 1697 1776 1786 3599  3769# 
$AUTOB 001034 9094 1622* 4083 4206 
$BASE 001154 9764 
$BDADR 001022 9044  2358* 5092 
$BDDAT 001026 906M 2360* 2725* 3133" 3409 3432* 3479* 3495" 5092 5095 5097 5099 
$CHARC 564 3868* 3878 3885  3911*  3916# 
SCKSWR 017242 40754 4248 
$CMTAG 001000 8924 1572 1573 1581 1587 1588 
$CM3 = 000000 9204 
$CM4 = 000005 9224 «9234 —(«924H «25H (26H (97H 
SCNTLG 017777 4086 42014 
SCNTLU 017772 4103 4200# 
$CPUOP 001126 9504 
SCRLF 001075 929# 3594 3629 3648 3653 3657 3867 3919 4114 4200 4346 
$DBLK 017232 4020 4054 40624 
$DEVCT 001110 9414 1707 
DE 001156 977# 1569% 1626* 1629* 1632" 1633 ° 1720 1938 2228 2380 2739 3145 3376 
3382 3387, 3443. 3451 3469 = 3485 Fee 
$DOAGN 015032 3530 = 3539 35454 
TBL 017222 4023 40584 
$ENDAD 015022 858 35414 = 3614 
SENDCT 014770 1587 35324 
041 3534 35494 
$ENULL 015036 3537 35484 
SENV 120 9464 1616 1676 1971 1998 2066 2112 2161 2192 2274 2296 2331 2374 
2838 «© 3001.:~Sfs«3198 ~=s-3238~=S 3269S 3303S 3349 «= 3596 = 3775 3799 3846 
SENVM = 001121 9474 1609 3777 848 3853 
$ 014740 3338 «= 3353. 3506 = 35234 
$EOPCT 014762 1587" 3529" 35 
SERFLG 003 8954 3584 3721 3744 3750* 3760 
RMAX 001015 9014 1589*  3756* 3760 
$ERROR 015120 1581 3583 
SERRPC 001016 9024 3588* 3589* 3590 3635 5076 5078 5080 5082 5084 5086 5088 5090 
5092 5095 ~=s 5097, «5099S «45101. s«S103 = «$905. 5107 
SERRTB 001160 994 3643 


$ERRTY 0153502 3593 36284 
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SERTTL 001012 899%  3587* 
SESCAP 001072 9274 §=©1588* 3610 3612 3755* 

T 001120 "9450 
SETEND 001160 883 9784 
SFATAL 901102 9384  1566*  3803* 
SFFLG 016232 3766* 3769* 3797 3806* 38144 
SFILLC 001056 9204 3871 3919 
$FILLS 001055 919% 3919 
$SGDADR 001020 9034 2357" 5092 
SGDDAT 001024 9054 2359% 2726% 31328 3414" 3416* 3437" 3439" 3480* 3496" 5092 5095 5099 
$GET462 015012 384 
SGTSWR 017312 40874 4246 

= 705 06 

$HIBTS 000500 8784 
SICNT 001 8 
SILLUP 015576 3674 3692 37094 
SINTAG 001035 $108 4115 4206 
SITEMB 001014 9004 3590* 3598 3632 
SLF 001076 9304 3919 4191 4200 

FLG (016231 3807* 38134 
$LPADR 001 8974 1590* 3748*  3753* 3758 3760 
SLPERR 001010 8984 1591* 3609 3748 3754* 3760 
$SMADR1 eS 96 


2163 2194 2276 2298 2333 
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2376 2840 3003 3200 3240 3271 3305 3351 3526* 3527* 3535 3548 
SPASTM 000506 8814 
R 015604 3707 37120 
SPWRDN 015436 1585 36744 3701 
SPWRMG 015572 37074 
$PwRUP 015510 3684 3692" 
SQUES . 001074 9284 391 4133 4184 4200 
SRDCHR 017524 41464 2349 
SRDDEC= *eeeee 4251 
SRDLIN 017654 4176# 4250 
SRDOCT= eeeeee YJ 4251 
$RDSZ = 10 41694 
SRTNAD 015034 35474 
$R2A = eeeeee YJ 4251 
$SAVRE= *#eeee 4251 
$SAVR6 015602 3683* 3693 3703* 3704* 37114 
$SCOPE 015614 1579 37284 
$SETUP= 000137 aioe 1578 1579 1581 1583 1585 1587 1588 1590 1613 3525 3729 4070 
SSTUP = 177777 i eS 8404 he Se 
$SVLAD 015716 3739 3745 37514 eel ae oe ote 
$SVPC*= 000500 8564 861 
$SWR = 161000 705 7064 8214 927 928 1588 1590 1591 1642 1659 1675 1719 1741 


$SWREG 001122 9484 1611 
$SSWRMK= 000000 3725 
STESTN 001104 939" 1568* 1642 1659* 1675* 1719 1741" 1756* 1772s 1802* 1846* 1892* 1919 


5088 5090 5092 5095 5097 5099 5101 5103 5105 5107 

$TKB 001046 9154 3892 3899 3919 4068 4079 4096 4150 4156 

$TKS 001044 9144 3890 3897 3919 4068 4077, 4093 4117* 4148 4154 

$TMPO 1060 9224 3356* 3501 

$T™MP1 001062 9234 3357* 3502 

$TMP2 001064 9244 3358* 3503 

$TMP3 9254  3359* 3504 

$TMP4 001070 9264 3360* 3505 

$™N == 000071 7054 8204 1638 16424 1655 16594 1671 16754 1715 17194 1741# 1752 
17564 1768 17724 18024 1842 18464 1888 18924 1915 19194 1933 1937# 
1952 19564 196 19704 1974 1993 19974 200 016 20204 2032 20364 
20524 2069 207 20834 2127 21314 2177 21814 207 22114 2227# 62242 
22464 291 22954 2326 23304 2334 9 23734 2408 2412% 2440 24444 
2473 2477# 250 2510 2544 25484 2581 25854 619 26234 49 26534 
26824 2706 27104 2738H 2766 27704 2800 28044 33 28374 2871 


2734 28 2841 
28754 2902 29064 2934 29384 2969 297354 2996 30004 3004 3029 30334 3054 
30584 3082 30864 3105 31094 3140 31444 3193 31974 3201 3233 32374 3241 
3264 32684 3272 3298 33024 3306 3344 33484 
$TPB 001052 9174 3908* 3919 
$TPFLG 001057 9214 3840 3919 
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$STPS 001050 9164 3906 3919 
STRAP 020026 1583 42174 
STRAP2 020050 42284 & 
$TRP = 000012 42328 842618 342628 42638 42648 42458 4246 42474 4248 42494 42504 42514 
STRPAD 020062 4222 42394 
STSTM 000504 - 8804 
STSTNM 001002 8944 3525* 3586 3721 3751* 3752 3757 3760 
STTYIN 017762 4177 4178 4195 41994 
STYPBN= ***ee8 4245 
$STYPDS 017016 40084 4244 
STYPE 016234 3794 38404 4232 4240 
STYPEC 016446 3870 3877 4. 38894 4119 
STYPEX 016566 3912 3914 39174 
STYPOC 016614 39494 
STYPON 016630 948 39514 4243 
$TYPOS 016570 39444 4242 

IT 001112 9424 
SUNITM 000510 8824 

001124 

$VECT1 €01150 9744 
$VECT2 001152 9754 
SXOFF = 000025 3894 3919 
$xON = 000021 3901 3919 4161 
$XTSTR 015626 37334 : 
$$GET4= 000000 35404 
$OFILL 017013 3945* 3949* 3959 39944 
S$40CAT= *eeee8% UY 3730 : 
° = 031450 8254 831 8324 8364 8424 8464 8514 856 8574 8594 8614 867 


8704 8724 8914 931 9974 10164 10244 12674 1576 1590 1591 3548 3552 
36674 3686 3710 3760 38164 3919 40624 4068 4199% 4200 4206 43164 50754 


-SERRT 001160 
-$X = 000500 
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APTSKP 6914 1971 1998 2065 2296 2331 2838 3001 3198 

COMMEN 8174 

DOTHIS 6934 1720 1938 2228 2379 2739 3145 

ENDCOM 8174 

ERROR 7114 = =©1733 74 
1882 901 


35 
—_~— 
on 
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z2 
= 
oo 
—= 
Oo 
= 
Co 
=e 
wr 


Ww 


3201 


m9 
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NAME S 


3238 


3241 


3272 


3306 


SEQ 0116 


1969 
2937 









SSNEWT 


CJKDFA.P11 


031450 


ERRORS DETECTED: 0 
DSKM: Fa oy i ag rete LST/SOL/NL : TOC/CRF=CJKDFA.P11 
RUN-TI ECONDS 


75 47 


RUN=T IME "RATIO: 
CORE USED: 


29K 


(57 


fesv ilove 4 


PAGES) 


MACY11 30A(1052) 
CROSS REFERENCE TABLE <= MACR 


1715 





19-MAR=81" 


1737 1752 1768 hes 
2127 177 2207 $962 
2649 678 2706 $ 
3105 140 3193 

4246 4248 4249 2 


ae 27_ PAGE 119 
O NAMES 


1933 
2369 
2871 


1952 
2408 
2902 


SEQ 0117 


34 


